Try:

Dim ws1 As Worksheet, ws2 As Worksheet
Dim Lr As Long

Lr = 10 'change to suit
Set ws1 = Sheets("invDataFile")
Set ws2 = Sheets("invDataBase")

ws2.Range("A" & Lr & ":B" & Lr) = ws1.Range("A1:B1").Value
ws2.Range("B" & Lr) = ws1.Range("B1").Value
ws2.Range("D" & Lr & ":E" & Lr) = ws1.Range("D1:E1").Value
ws2.Range("E" & Lr) = ws1.Range("E1").Value
ws2.Range("L" & Lr) = ws1.Range("L1").Value

Set ws1 = Sheets("Inventory")

ws2.Range("C" & Lr) = ws1.Range("AB9").Value
ws2.Range("F" & Lr) = ws1.Range("AA11").Value
ws2.Range("G" & Lr) = ws1.Range("AG11").Value
ws2.Range("H" & Lr) = ws1.Range("AB13").Value
ws2.Range("K" & Lr) = ws1.Range("X19").Value
ws2.Range("N" & Lr) = ws1.Range("AC15").Value


Regards,
Greg