Hilfe --> letze Spalte

Also:

Ich habe in einer Tabelle ungefähr 20 Spalten mit Werten.

Nun lasse ich über eine Userform die Spalten auswählen die man drucken möchte, mein Problem ist beim kopieren in ein anderes Blatt, weis ich ja nicht welche die letzte Spalte ist.

Mein Code bis jetzt:

If Bez_Spalte2.Value = True Then
Sheets("Quelle").Select
Columns("B:B").Copy
Sheets("Druck").Select

Columns("B:B").Select --> Hier müsste es so sein dass Excel die letzte gefüllte Spalte ermittelt --> weiter geht und dann einfügt.

ActiveSheet.Paste
End If

Danke für Eure Hilfe

Steffen