Snasui Excel Forum

Code: Select all

Sub Process()
    Dim r As Range, ra As Range
     Set ra = Worksheets("Data").Range("A14:K36")
    Set r = Worksheets("Result").Range("B65536").End(xlUp).Offset(1, -1)
    ra.Copy
    r.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "Finish."
End Sub

Code: Select all

Sub Test0()
    Dim r As Range, ra As Range
    Dim lastRow As Long
    With Sheets("Data")
        Set ra = .Range("A1").SpecialCells(xlCellTypeConstants, 23)
    End With
    lastRow = Sheets("Result").UsedRange.Row + _
        Sheets("Result").UsedRange.Rows.Count
    For Each r In ra
        Sheets("Result").Range("A" & lastRow). _
            Offset(0, r.Column - 1) = r.Value
         lastRow = lastRow + 1
    Next r
End Sub