See if this is how you wanted,
![]()
Sub test() Sheets("GeneralInformation").[b9].CurrentRegion.Offset(2).Clear With Sheets("input") Sheets("datadump").Cells(1).CurrentRegion.Offset(1) _ .Columns(.[b2].Value & ":" & .[c2].Value).Copy _ Destination:=Sheets("GeneralInformation").Range(.[b2].Value & 10) End With End Sub
Bookmarks