Sounds like you need to clear out the data  on the form  after the
row has been written. Take a look at this...

If r > 1 And r <= LastRow Then

Cells(r, 1) = strProtocolID
Cells(r, 2) = txtSiteID.Text
Cells(r, 3) = StrConv(txtPIFirstName, vbProperCase)
Cells(r, 4) = StrConv(txtPILastName, vbProperCase)
Cells(r, 5) = txtPIPhoneNumber
Cells(r, 6) = txtPIFaxNumber
Cells(r, 7) = txtPIEmailAddress
Cells(r, 8) = txtMaxSiteScreenAmount
Cells(r, 9) = txtMaxSiteRandAmount

DisableSave

'Everything was good, reset the form

Me.strProtocolID = ""
Me.txtSiteID.Text = ""
Me.txtPIFirstName = ""
Me.txtPILastName = ""
Me.txtPIPhoneNumber = ""
Me.txtPIFaxNumber = ""
txtPIEmailAddress = ""
txtMaxSiteScreenAmount = ""
txtMaxSiteRandAmount = ""



Else
MsgBox "Invalid row  number"

End If