VBA is deleting last line in sheet

[Pantoffsky]

Hi all,

I have a issue with the following part of code:

Sub addRows()
   Dim UsdRws As Long
   
   UsdRws = Sheets("Report").Range("G" & Rows.Count).End(xlUp).Row
Sheets("Work").Range("A" & Rows.Count).End(xlUp).Resize(UsdRws - 0).Formula = "=blablaformula"

    Sheets("Work").Cells.Copy
    Sheets("Work").Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

End Sub

It's supposed to add rows based on a formula after the last row in the sheet "Work". But instead of putting them after the last row, the last row is is overwritten. What am I doing wrong?

Many Thanks!

 

[fadee2]

try

Sub addRows()
Dim UsdRws As Long
UsdRws = Sheets("Report").Range("G" & Rows.Count).End(xlUp).Row
lrow = Sheets("Work").Range("A" & Rows.Count).End(xlUp).Row + 1

   sheets("Work").Cells(lrow, 1).Resize(UsdRws - 0).Formula = "=blablaformula"
   Sheets("Work").Cells.Copy
   Sheets("Work").Cells.PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False
End Sub

hth...

 

[Pantoffsky]

Yup, that works.

Thanks @fadee2!

 

[fadee2]

you are welcome and thanks for the feed back...