userform data capturing in next available row

Hi
I am having some problems with either my code or workbook formatting.
Problem is that This code works well in my other sheet in the same workbook but not on the other sheets it doesn't capturing the data from userform in the next empty row instead it's putting the data into the row 48??? I have checked it and all rows from 1 to 47 are empty but for some reason it doesn't see it or thinks these rows containing some data. This is very strange, I have selected all rows and click delete but it didn't hep at all.
Any suggestions please?

Thank You

Private Sub cmdSubmit_Click()
   Dim rw As Long    'next available row
 
   With ActiveSheet
 
      'get the next avialable row in ActiveSheet
      rw = .Range("A" & .Rows.Count).End(xlUp).Row + 1
 
      'put the text box values in this row
      .Range("A" & rw).Value = txtName.Value
      .Range("B" & rw).Value = txtShift.Value
 
      'copy the formula from the previous row
      .Range("C" & rw - 1 & ":G" & rw - 1).Copy
      .Range("C" & rw & ":G" & rw).PasteSpecial Paste:=xlPasteFormulas
      Application.CutCopyMode = False
   End With
 
   '================================
   'OPTIONAL - clear the text boxes
   '================================
   'txtName.Value = ""
   'txtAge.Value = ""
 
   '==========================
   'OPTIONAL - unload the form
   '==========================
   'unload me
End Sub

Your cursor has to be on the active sheet before you run it.

Do you have formulas on these rows? If so, they may be not empty, but are null strings.

Thanks for your replays.
No I do not have any formulas in those rows and this is very strange basically the format is identical to the one where the code is fully working I do not understand this at all.

I suspect these rows are not empty. One way to test if any row in column A is empty.

Sub Areuempty()
Dim rw&, i&
With ActiveSheet

    rw = .Range("A" & .Rows.count).End(xlUp).Row
    
    For i = 1 To rw
    
        If IsEmpty(.Cells(i, 1)) Then
            MsgBox "It is empty cell"
        Else
            MsgBox "It is not empty cell"
        End If
    Next

End With

End Sub

Thanks I will try this tomorrow and let you know.

Or use this code to clear cells if the last row is 47.

Sub testr()

With ActiveSheet

    .Range("A1").Resize(.Range("A" & .Rows.count).End(xlUp).Row + 1).Clear
   
End With

End Sub

Ok managed to fix this.
There was something in cell 46 but wasn't visible all I've done was I've selected everything and clear the content.

Thanks for help