worksheet instead active cell

[delta]

Sub FillDocCenterAmount()

  Dim i As Integer
  For i = 4 To 8
  If Controls("TextBox" & i) <> "" Then
  If Worksheets("DATA").Range("D1").Offset(1, 0).Value = "" Then
  Worksheets("DATA").Range("D1").Offset(1, 0).Value = Controls("TextBox" & i).Text
  Else
  Worksheets("DATA").Range("D1").End(xlDown).Offset(1, 0).Value = Controls("TextBox" & i).Text
  End If
  End If
  Next i

  For i = 9 To 13
  If Controls("TextBox" & i) <> "" Then
  If Worksheets("DATA").Range("E1").Offset(1, 0).Value = "" Then
  Worksheets("DATA").Range("E1").Offset(1, 0).Value = Controls("TextBox" & i).Text
  Else
  Worksheets("DATA").Range("E1").End(xlDown).Offset(1, 0).Value = Controls("TextBox" & i).Text
  End If
  End If
  Next i

  For i = 14 To 18
  If Controls("TextBox" & i) <> "" Then
  If Worksheets("DATA").Range("F1").Offset(1, 0).Value = "" Then
  Worksheets("DATA").Range("F1").Offset(1, 0).Value = Controls("TextBox" & i).Text
  Else
  Worksheets("DATA").Range("F1").End(xlDown).Offset(1, 0).Value = Controls("TextBox" & i).Text
  End If
  End If
  Next i
End Sub

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

run FillDateSenderFrom macro data add in active sheet and cell but
i wish data add in worksheet "DATA" .

 

[Hui]

Can you attach the actual file and describe how to run the code

 

[delta]

I attache the sample file

I LIKE DATA WILL SHOW ABOVE BUT DATA OF "DATE", "SENDER", "FROM HEADING WILL BE SHOW IN SHEET1

ONTHER ISSUE IS
DELTE "B6" CELL DATA ON WORKSHEET "DATA" AND RUN MACRO ADD DATA ON USERFORM1 THAN OVERRIGHT ABOVE DATA ON WORKSHEET "DATA"

 

[delta]

Hui Sir
pls resolve my problem