Need to change the resize as well
![]()
Dim LastRow As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row Rows("1:100").Copy Destination:=Rows(LastRow + 2).Resize(100)
Need to change the resize as well
![]()
Dim LastRow As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row Rows("1:100").Copy Destination:=Rows(LastRow + 2).Resize(100)
_________________________________________
![]()
![]()
Credo Elvem ipsum etian vivere
_________________________________________
A message for cross posters
Please remember to wrap code.
Forum Rules
Please add to your signature if you found this link helpful. Excel links !!!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks