Hi
I'm currently using this code to search my sheet for the overall total column, and then copy this row onto the last row of the next sheet :
Sub test()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If .Range("B" & i).Value = "Overall Total:" Then .Rows(i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End With
End Sub
HOWEVER, this code copies the entire row and as a result, the table doesn't auto-populate. I need to edit the code so that it only copies between columns A:W as when I manually copy this over, the table and it's formulas do auto-populate.
Thank you in advance.
Bookmarks