I have the following lines of code
With Sheets("(Pasted) Sidney BT")
Dim lastrow As Long
lastrow = .Range("B" & .Rows.Count).End(xlUp).Row
.Range("A1:AA" & lastrow).Copy wks.Range("A" & wks.Rows.Count).End(xlUp)
End With
With Sheets("(Pasted) Ursula BT")
lastrow =...