rows instea cell

[nidhipatel]

In this macro count blank active cell in active worksheet

but i like

count blank row instead active cell in workssheet "DATA"


Sub FillDateSenderFrom()

For i = 1 To 3
If Controls("TextBox" & i) <> "" Then
If i = 1 Then

Cells(Rows.Count, 4).End(xlUp).End(xlToLeft).Offset(0, i - 1).Select

Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).Value = Controls("TextBox" & i).Text
Else

Cells(Rows.Count, 4).End(xlUp).End(xlToLeft).Offset(0, 1).Select

Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).Value = Controls("TextBox" & i).Text
End If
End If
Next i




End Sub