Populating problems with User Form

ok this works:

Public Sub CommandButton2_Click()

Dim RowCount2 As Long
    RowCount2 = Worksheets("Permitting and Notification").Range("A" & Rows.Count).End(xlUp).Row - 1
    With Worksheets("Permitting and Notification").Range("A2")
    .Offset(RowCount2, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount2, 1).Value = Me.txtPermitAgencyName1.Value
    .Offset(RowCount2, 2).Value = Me.cmboPermitStatus1.Value
    .Offset(RowCount2, 3).Value = Me.txtApplicationDate1.Value
    .Offset(RowCount2, 4).Value = Me.txtPermitNumber1.Value
    .Offset(RowCount2, 5).Value = Me.txtPermitDate1.Value
    End With

If Not txtPermitAgencyName2.Value = "" Then
    RowCount2 = Worksheets("Permitting and Notification").Range("A" & Rows.Count).End(xlUp).Row - 1
    With Worksheets("Permitting and Notification").Range("A2")
    .Offset(RowCount2, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount2, 1).Value = Me.txtPermitAgencyName2.Value
    .Offset(RowCount2, 2).Value = Me.cmboPermitStatus2.Value
    .Offset(RowCount2, 3).Value = Me.txtApplicationDate2.Value
    .Offset(RowCount2, 4).Value = Me.txtPermitNumber2.Value
    .Offset(RowCount2, 5).Value = Me.txtPermitDate2.Value
    End With
 End If
If Not txtPermitAgencyName3.Value = "" Then
    RowCount2 = Worksheets("Permitting and Notification").Range("A" & Rows.Count).End(xlUp).Row - 1
    With Worksheets("Permitting and Notification").Range("A2")
    .Offset(RowCount2, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount2, 1).Value = Me.txtPermitAgencyName3.Value
    .Offset(RowCount2, 2).Value = Me.cmboPermitStatus3.Value
    .Offset(RowCount2, 3).Value = Me.txtApplicationDate3.Value
    .Offset(RowCount2, 4).Value = Me.txtPermitNumber3.Value
    .Offset(RowCount2, 5).Value = Me.txtPermitDate3.Value
    End With
 End If
If Not txtPermitAgencyName4.Value = "" Then
    RowCount2 = Worksheets("Permitting and Notification").Range("A" & Rows.Count).End(xlUp).Row - 1
    With Worksheets("Permitting and Notification").Range("A2")
    .Offset(RowCount2, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount2, 1).Value = Me.txtPermitAgencyName4.Value
    .Offset(RowCount2, 2).Value = Me.cmboPermitStatus4.Value
    .Offset(RowCount2, 3).Value = Me.txtApplicationDate4.Value
    .Offset(RowCount2, 4).Value = Me.txtPermitNumber4.Value
    .Offset(RowCount2, 5).Value = Me.txtPermitDate4.Value
    End With
 End If
 If Not txtPermitAgencyName5.Value = "" Then
    RowCount2 = Worksheets("Permitting and Notification").Range("A" & Rows.Count).End(xlUp).Row - 1
    With Worksheets("Permitting and Notification").Range("A2")
    .Offset(RowCount2, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount2, 1).Value = Me.txtPermitAgencyName5.Value
    .Offset(RowCount2, 2).Value = Me.cmboPermitStatus5.Value
    .Offset(RowCount2, 3).Value = Me.txtApplicationDate5.Value
    .Offset(RowCount2, 4).Value = Me.txtPermitNumber5.Value
    .Offset(RowCount2, 5).Value = Me.txtPermitDate5.Value
    End With
 End If
 If Not txtPermitAgencyName6.Value = "" Then
    RowCount2 = Worksheets("Permitting and Notification").Range("A" & Rows.Count).End(xlUp).Row - 1
    With Worksheets("Permitting and Notification").Range("A2")
    .Offset(RowCount2, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount2, 1).Value = Me.txtPermitAgencyName6.Value
    .Offset(RowCount2, 2).Value = Me.cmboPermitStatus6.Value
    .Offset(RowCount2, 3).Value = Me.txtApplicationDate6.Value
    .Offset(RowCount2, 4).Value = Me.txtPermitNumber6.Value
    .Offset(RowCount2, 5).Value = Me.txtPermitDate6.Value
    End With
 End If
Unload Me


End Sub