Copy to last row, paste into last row.

[Gregorys05]

Hi guy's
I am trying to copy from one sheet to another (Should have been easy)

I need to copy from sheet Skill DB Current Month range (A1:E1) down to the last row and then paste this into Skill DB Archive into the next avaliable row.

Any ideas?

Thanks

 

[Richard Schollar]

Try:

With Sheets("Skill DB Current Month")
  .Range("A1:E1").Resize(.Cells(.Rows.Count,"A").End(xlUp).Row).Copy
End With
 
With Sheets("Skill DB Archive")
  .Cells(.Rows.Count,"A").End(xlUp).Offset(1).PasteSpecial
End With

 

[Trevor G]

Something like this should work

Sub copyData()
With Sheets("Skill DB")
.Range("A1:E1").Resize(.Cells(.Rows.Count, "A").End(xlUp).Row).Copy
End With

With Sheets("Skill Archive")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial
End WithEnd Sub

 

[Gregorys05]

Thats brillent thanks guys