Snasui Excel Forum

Code: Select all

   Set Sheet1 = Sheets("sheet1")
   Set shInput = ActiveSheet
   lRow = Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Row
   Range("f4").Copy Destination:=Sheets("Tracking").Range("f65536").End(xlUp).Offset(1, 0)
   
   With Application
      .EnableEvents = False
      .Calculation = xlCalculationManual
      .ScreenUpdating = False
   End With
   With Sheet1
      
      .Cells(lRow, "c").Value = shInput.Range("d7")
      .Cells(lRow, "b").Value = shInput.Range("d5")
      .Cells(lRow, "d").Value = shInput.Range("d6")
      .Cells(lRow, "m").Value = shInput.Range("f6")
      .Cells(lRow, "q").Value = shInput.Range("f7")
      .Cells(lRow, "u").Value = shInput.Range("f8")
      .Cells(lRow, "y").Value = shInput.Range("f9")
       End With
   With Application
      .Calculation = xlCalculationAutomatic
      .EnableEvents = True
      .ScreenUpdating = True

Code: Select all

'Other code
With Sheet1
     For Each rng In Sheet1.ListObjects("Table1").ListColumns(2).Range
         If rng = "" Then
             lRow = rng.Row
             Exit For
         End If
     Next rng
End With

'Other code