Sub Copy()
copySpecial Range("H19:I1273"), Worksheets("SE").Range("E2")
End Sub
Sub copySpecial(RangeSource As Range, RangeDestination As Range)
Dim rngDest As Range
Set rngDest = RangeDestination
Dim rng As Range
Dim bFirst As Boolean, lngRow As Long, lngColumn As Long
Dim rngCp As Range
bFirst = True
For Each rng In RangeSource.SpecialCells(xlCellTypeVisible).Cells
If bFirst Then
lngColumn = rng.Column
lngRow = rng.Row
bFirst = False
End If
If Not rng.Value = "" Then
rng.Copy Destination:=rngDest.Offset(rng.Row - lngRow, rng.Column - lngColumn)
End If
Next
End Sub