Maybe
Dim DestSht As Worksheet
Dim LastRow As Long
Set DestSht = Sheets("PURCHASE ORDER NUMBERS")
LastRow = DestSht.Cells(Rows.Count, "B").End(xlUp).Row
With DestSht
.Cells(LastRow + 1, "B").Value = Range("SUPPLIER").Value
.Cells(LastRow + 1, "C").Value = Range("Date").Value
.Cells(LastRow + 1, "D").Value = Range("JOBNUMBER").Value
.Cells(LastRow + 1, "E").Value = Range("CUSTOMERNAME").Value
.Cells(LastRow + 1, "F").Value = Sheets("PURCHASE ORDER").Range("D28").Value
End With
or
Dim DestSht As Worksheet
Dim LastRow As Long,i as long
Dim Arr As Variant
Set DestSht = Sheets("PURCHASE ORDER NUMBERS")
LastRow = DestSht.Cells(Rows.Count, "B").End(xlUp).Row
Arr = Array("Supplier", "Date", "Jobnumber", "Customername")
For i = 0 To UBound(Arr)
With DestSht
.Cells(LastRow + 1, i + 2).Value = Range(Arr(i)).Value
End With
Next i
DestSht.Cells(LastRow + 1, "F").Value = Sheets("PURCHASE ORDER").Range("D28").Value
VBA Noob
Bookmarks