Populating problems with User Form

Hi all,

I am running into some problems with my code for a User Form and I'm hoping to get some help.

Currently I have it set up so that you type data into one User Form and then based on that data this second User Form pops up (so far no problems with this).

Now when I fill out the data in the second User Form it's doing a couple of things.

1. Only the first two lines will populate to the specified worksheet.
2. When I run the Userform again it writes over the data (doesn't jump to the next blank cell)

Any insight you might be able to offer into this would be greatly appreciated. I have made a working User Form with all the data that I can revert to but I'd prefer to use multiple User Forms to keep the User experience simple, compartmentalized and clean.

Thanks!

Wolfman


CommandButton2 is the 'OK' button.

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(RowCount, 0).Value = Me.txtProjectID.Value
    .Offset(RowCount, 1).Value = Me.txtPermitAgencyName1.Value
    .Offset(RowCount, 2).Value = Me.cmboPermitStatus1.Value
    .Offset(RowCount, 3).Value = Me.txtApplicationDate1.Value
    .Offset(RowCount, 4).Value = Me.txtPermitNumber1.Value
    .Offset(RowCount, 5).Value = Me.txtPermitDate1.Value
    End With

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

End Sub