check blank row

[delta]

this macro check blank cell but it check blank rows the macro is put under

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

what is correct code
pls help me
------------------------------------------------------------------------------------
MOD EDIT: Added code tag.

 

[Hui]

Delta

Can you please post a picture of your data before the macro and what it should look like after the macro

 

[delta]

i upload excel file and also picture Before macro run and After Macro Run.
when macro is run the value of "Sender", "Date", "From" filed is ADD in sheet1 but i like to ADD in Worksheet "DATA" reason is macro find blank active cell. solution is find blank rows. pls help me

 

[Hareesh_KLD]

Hi Use following Code

Sub FillDateSenderFrom()

  For i = 1 To 3
  If Controls("TextBox" & i) <> "" Then
  If i = 1 Then
  Worksheets("DATA").Activate
  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

 

[Belleke]

Using activate (or select) is bad practice, you should avoid it,it slows down your code.
See Attached

 

[delta]

Great sir !
perfect i need this answer
thanks a lot

 

[delta]

Sir,
Hareesh_KLD

a bit of issue is rise i need result as show in picture and also attach the excel file.

 

[Hareesh_KLD]

Hi

Check the attached sheet

 

[Hareesh_KLD]

Hi

pls ignore earlier sheet and use this sheet

 

[delta]

Genius
sir,
perfect i was need solution

again so many many thanks