This method needs only one line of code, but it will not work if your data has empty rows. Hope you like it!
The code will copy from and to the active sheet:
ActiveSheet.Range("B3").CurrentRegion.Copy Range("E3")
Homepage: https://sites.google.com/view/regnear...