Is there anyway to improve on this code snipit

Set aSourceRange = Sheets("invDataFile").Range("A1:B1")
Set aDestRange = Sheets("invDatabase").Range("A" & Lr)
Set jSourceRange = Sheets("invDataFile").Range("B1")
Set jDestRange = Sheets("invDatabase").Range("B" & Lr)
Set bSourceRange = Sheets("Inventory").Range("AB9")
Set bDestRange = Sheets("invDatabase").Range("C" & Lr)
Set cSourceRange = Sheets("invDataFile").Range("D1:E1")
Set cDestRange = Sheets("invDatabase").Range("D" & Lr)
Set kSourceRange = Sheets("invDataFile").Range("E1")
Set kDestRange = Sheets("invDatabase").Range("E" & Lr)
Set dSourceRange = Sheets("Inventory").Range("AA11")
Set dDestRange = Sheets("invDatabase").Range("F" & Lr)
Set eSourceRange = Sheets("Inventory").Range("AG11")
Set eDestRange = Sheets("invDatabase").Range("G" & Lr)
Set fSourceRange = Sheets("Inventory").Range("AB13")
Set fDestRange = Sheets("invDatabase").Range("H" & Lr)
Set gSourceRange = Sheets("Inventory").Range("X19")
Set gDestRange = Sheets("invDatabase").Range("K" & Lr)
Set hSourceRange = Sheets("invDataFile").Range("L1")
Set hDestRange = Sheets("invDatabase").Range("L" & Lr)
Set iSourceRange = Sheets("Inventory").Range("AC15")
Set iDestRange = Sheets("invDatabase").Range("N" & Lr)

aSourceRange.Copy
aDestRange.PasteSpecial xlPasteValues, , False, False
bSourceRange.Copy
bDestRange.PasteSpecial xlPasteValues, , False, False
cSourceRange.Copy
cDestRange.PasteSpecial xlPasteValues, , False, False
dSourceRange.Copy
dDestRange.PasteSpecial xlPasteValues, , False, False
eSourceRange.Copy
eDestRange.PasteSpecial xlPasteValues, , False, False
fSourceRange.Copy
fDestRange.PasteSpecial xlPasteValues, , False, False
gSourceRange.Copy
gDestRange.PasteSpecial xlPasteValues, , False, False
hSourceRange.Copy
hDestRange.PasteSpecial xlPasteValues, , False, False
iSourceRange.Copy
iDestRange.PasteSpecial xlPasteValues, , False, False

Any information would be greatly appreciated, and a very special thanks
--
Larry E. Brueshaber

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

The Code works superbly, Thank you very much for the excellent code and
answer. With great responses and answers from all personnel such as you it
is always a great honor; without individuals who are willing to share their
knowledge and expertise, I am for one would be totally lost at times. Again
thank you so much.--
Larry E. Brueshaber


"Greg Wilson" wrote:

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

You're welcome!!!

Greg

"Larry" wrote:

The Code works superbly, Thank you very much for the excellent code and
answer. With great responses and answers from all personnel such as you it
is always a great honor; without individuals who are willing to share their
knowledge and expertise, I am for one would be totally lost at times. Again
thank you so much.--
Larry E. Brueshaber


"Greg Wilson" wrote:

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