not sure but perhaps something like that
Public Sub CommandButton2_Click()
Dim RowCount2 As Long
RowCount2 = Worksheets("Permitting and Notification").Range("A3").CurrentRegion.Rows.Count 
    With Worksheets("Permitting and Notification").Range("A3")
    .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
'
'