Bruge en værdi fra/til en formel

Hejsa,

Har en VBA jeg bruger til at gemme en Excel fil af en større fil med.
Den melder så fejl, Metoden PasteSpecial for klassen Range mislykkedes.
Tror problemet er at den finder aktive celler helt op til række 8000.
Der er intet i disse celler.

Dim thisPath As String, workbookname2 As String, shp As Shape

thisPath = Application.ActiveWorkbook.Path

ThisWorkbook.ActiveSheet.Copy


With ActiveSheet.UsedRange 
        .Copy
        .PasteSpecial xlPasteValues  *** FEJLEN MARKERES HER ***
        .PasteSpecial xlPasteFormats
    End With
   
Application.CutCopyMode = False
   
   
workbookname2 = thisPath & "\" & Range("B11") 

For Each shp In ActiveWorkbook.Sheets("Tilbud dansk").Shapes
    If shp.Type = msoFormControl Then shp.Delete
Next shp

ActiveWorkbook.SaveAs workbookname2 

ActiveWorkbook.Close
 


Har fundet denne VBA, som finder den rigtige sidste linje med data i.
Hvordan får jeg den bygget ind i ovenstående, så den kun markerer og kopierer til den sidste linje med data i?

Sub Range_End_Method()
'Finds the last non-blank cell in a single row

Dim lRow As Long
   
    'Find the last non-blank cell in column A(1)
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
   
    MsgBox "Last Row: " & lRow
 
End Sub