Maybe this then (untested)
Option Explicit
Sub sCopyColumns()
Dim lNR As Long, lLC As Long, lLR As Long, i As Long, j As Long
Application.ScreenUpdating = False
With Sheets("Paste to")
lNR = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
With Sheets("Copy From")
lLC = .Cells(3, .Columns.Count).End(xlToRight).Column
For i = 1 To lLC
lLR = .Cells(.Rows.Count, i).End(xlUp).Row
If lLR >= 3 Then
.Range(.Cells(3, i), .Cells(lLR, i)).Copy _
Sheets("Paste to").Cells(lNR, i)
End If
Next 'i
End With
Application.ScreenUpdating = True
End Sub
Bookmarks