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
'
'
Bookmarks