ndendrinos
10-29-2006, 11:28 AM
hello to all,
I need to have 97 cells of my invoice in sequence on Row 50 starting in A
I have an "X" in A49 and the code I'm using works (here with 16 cells only)
Is there a better way to write this?
Many thanks
Sub test()
Dim LastRow As Range
Set LastRow = Sheets("Invoice").Cells(Rows.Count, "A").End(xlUp)
With LastRow
.Offset(1) = Range("I1")
.Offset(1, 1) = Range("I3")
.Offset(1, 2) = Range("C4")
.Offset(1, 3) = Range("C5")
.Offset(1, 4) = Range("C6")
.Offset(1, 5) = Range("C7")
.Offset(1, 6) = Range("C8")
.Offset(1, 7) = Range("C9")
.Offset(1, 8) = Range("C10")
.Offset(1, 9) = Range("C11")
.Offset(1, 10) = Range("H4")
.Offset(1, 11) = Range("H5")
.Offset(1, 12) = Range("H6")
.Offset(1, 13) = Range("H7")
.Offset(1, 14) = Range("H8")
.Offset(1, 15) = Range("H9")
End With
End Sub
I need to have 97 cells of my invoice in sequence on Row 50 starting in A
I have an "X" in A49 and the code I'm using works (here with 16 cells only)
Is there a better way to write this?
Many thanks
Sub test()
Dim LastRow As Range
Set LastRow = Sheets("Invoice").Cells(Rows.Count, "A").End(xlUp)
With LastRow
.Offset(1) = Range("I1")
.Offset(1, 1) = Range("I3")
.Offset(1, 2) = Range("C4")
.Offset(1, 3) = Range("C5")
.Offset(1, 4) = Range("C6")
.Offset(1, 5) = Range("C7")
.Offset(1, 6) = Range("C8")
.Offset(1, 7) = Range("C9")
.Offset(1, 8) = Range("C10")
.Offset(1, 9) = Range("C11")
.Offset(1, 10) = Range("H4")
.Offset(1, 11) = Range("H5")
.Offset(1, 12) = Range("H6")
.Offset(1, 13) = Range("H7")
.Offset(1, 14) = Range("H8")
.Offset(1, 15) = Range("H9")
End With
End Sub