Snasui Excel Forum

Code: Select all

Sub Paste()
    Dim irRange As Variant
    Dim i As Integer, rw As Long
    irRange = Array("C9", "C10", "C11", _
        "C12", "L14", "C14", "C15", "G15", _
        "L15", "C16", "L16", "D17", "F20", _
        "C21", "C24", "F24", "A29", "A40", _
        "A47", "C51", "E51", "j66")
    rw = Worksheets("Database").Range("a" & Rows.Count).End(xlUp).Row + 1
    For i = 0 To UBound(irRange)
        With Worksheets("Database")
            .Range("a" & rw).Offset(0, i).Value = Sheets("Input").Range(irRange(i)).Value
        End With
    Next i
End Sub