[Excel 2010 VBA] Waarde uit laatste cel kopiëren

[tijmen_4real]

Hoi,

Ik kan prima zien welke cel in een kolom als laatste een waarde heeft met:

Sub LastRowInOneColumn()
    Dim xLastRow As Long
    With Application.Sheets("Voorraad compleet")
        xLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox xLastRow
End Sub

Maar ik wil de waarde van deze laatste cel kopiëren naar een ander tabblad, bijvoorbeeld naar Sheets("tabblad1").Range("B33")
Hier loop ik tegen een probleem aan, want xLastRow is een variabele zonder value.
Hoe kan ik dit oplossen?

Bedankt en vriendelijke groet,

Tijmen

 

[VenA]

Bv

Sheets("Voorraad compleet").Cells(Rows.Count, 1).End(xlUp).Copy

 

[Haije]

Zo?

cells(xLastRow,a) copy [tabblad1!B33]