Makro Formular übertragen?

Hallo Programmierer?

Ich bin ein Visual Basic Anfängerin und
habe zwei Fragen?

Die Codewörter Col1 und Col2 stehen
für Spalte?

Wenn Col1 und Col2 leer ist, sollen
die Daten trotzdem übertragen werden?

Hier das komplette Makro?

Private Sub btnnUebertragen_Click()
'
' Schaltfläche Übertragen für Formular Arbeitszeiten
'
    Dim intCol1 As Integer
    Dim intCol2 As Integer
    Dim intCol3 As Integer
    Dim intCol4 As Integer
    Dim intCol5 As Integer
    Dim intBigger As Integer
   
        intCol1 = Cells(Rows.Count, 2).End(x1Up).Row
        intCol2 = Cells(Rows.Count, 3).End(x1Up).Row
        intCol3 = Cells(Rows.Count, 4).End(x1Up).Row
        intCol4 = Cells(Rows.Count, 5).End(x1Up).Row
        intCol5 = Cells(Rows.Count, 5).End(x1Up).Row
'
' Prüfen, welche Spalte mehr Zeilen enthält
'
    If intColl > inCol2 Then
        intBigger = intColl + 1
    Else
        intBigger = intCol2 + 1
    End If
'
' Daten an die Spalte B übergeben
'
    With Cells(intBigger, 2)
        .Value = txtDatum.Value
    End With
'
' Daten an die Spalte C übergeben
'
    With Cells(intBigger, 3)
        .Value = TextBox1.Value
    End With
'
' Daten an die Spalte D übergeben
'
    With Cells(intBigger, 4)
        .Value = TextBox2.Value
    End With
'
' Daten an die Spalte E übertragen
'
    With Cells(intBigger, 5)
        .Value = txtUhrzeitNm.Value
    End With
'
' Daten an die Spalte F übertragen
'
    With Cells(intBigger, 6)
        .Value = TextBox3.Value
    End With
'
' Den Inhalt der Textfelder entfernen
'
    txtDatum.Value =
    TextBox1.Value =
    TextBox2.Value =
    txtUhrzeitNm.Value =
    TextBox3.Value =
'
' Den Cursor, für eine neue Eingabe, wieder in das erste
' Textfeld setzen
'
    txtDatum.SetFocus
End Sub