Compile Error; HELP!!!

[MWhiteDesigns]

Hey Guys,
So I am attempting to create a userform to make it more user friendly to enter data. I am receiving a compile error stating: Block If without End If. Below is the code I am using.

How can I correct this!? Sorry I am still trying to learn this and I've tried to research as much as possible with no luck!
__________________________________________
Private Sub CmdEnterData_Click()
Dim RowCount As Long
RowCount = Worksheets("Process Tracker").Range("A1").CurrentRegion.Rows.Count

With Worksheets("Process Tracker").Range("A1")
.Offset(RowCount, 3).Value = Me.NameTextBox.Value
.Offset(RowCount, 1).Value = Me.RequestComboBox.Value

If Me.ARCheckBox.Value = True Then
.Offset(RowCount, 0).Value = "AR# "
If Me.ACCheckBox.Value = True Then
.Offset(RowCount, 0).Value = "Non AC# "
If Me.ClassCheckBox.Value = True Then
.Offset(RowCount, 0).Value = "Class# "

.Offset(RowCount, 4).Value = Me.DeptComboBox.Value
.Offset(RowCount, 5).Value = Me.SystemComboBox.Value
.Offset(RowCount, 6).Value = DateValue(Me.DateReceivedTextBox.Value)
.Offset(RowCount, 8).Value = DateValue(Me.DateSubmittedTextBox.Value)


.Offset(RowCount, 12).Value = Me.CommentsTextBox.Value


End Sub

 

[njimack]

Private Sub CmdEnterData_Click()
Dim RowCount As Long
RowCount = Worksheets("Process Tracker").Range("A1").CurrentRegion.Rows.Count

With Worksheets("Process Tracker").Range("A1")
.Offset(RowCount, 3).Value = Me.NameTextBox.Value
.Offset(RowCount, 1).Value = Me.RequestComboBox.Value

If Me.ARCheckBox.Value = True Then .Offset(RowCount, 0).Value = "AR# "
If Me.ACCheckBox.Value = True Then .Offset(RowCount, 0).Value = "Non AC# "
If Me.ClassCheckBox.Value = True Then .Offset(RowCount, 0).Value = "Class# "

.Offset(RowCount, 4).Value = Me.DeptComboBox.Value
.Offset(RowCount, 5).Value = Me.SystemComboBox.Value
.Offset(RowCount, 6).Value = DateValue(Me.DateReceivedTextBox.Value)
.Offset(RowCount, 8).Value = DateValue(Me.DateSubmittedTextBox.Value)


.Offset(RowCount, 12).Value = Me.CommentsTextBox.Value

End With
End Sub

 

[Smitty]

Your issue is three If statements with no End If.

EDIT: as njimack addressed.

 

[MWhiteDesigns]

Thank you guys. It's weird, earlier I had type End With before End Sub and I still received the error.

Now to the next question. Now that the error is no longer populating, When I click the enter data button. Nothing is transposed to the spreadsheet!

 

[njimack]

Thank you guys. It's weird, earlier I had type End With before End Sub and I still received the error.

Now to the next question. Now that the error is no longer populating, When I click the enter data button. Nothing is transposed to the spreadsheet!

It wasn't just the missing End With - you also had 3 If Statements without an End If, which I converted into single-line If Statements that don't need an End If.

Re the code not doing what you expected, try stepping through the code usig F8.

 

[MWhiteDesigns]

Is there a site that anyone knows about that would give a more detailed description on userform information? All the sites i have found show code but don't describe it very well. I am brand new to this so please bare with me

 

[Smitty]

Debra Dalgleish has a good starter tutorial here: http://www.contextures.com/xlUserForm01.html