Always display data in the first row

[john55]

Hi,

I have a userform and everytime I want to send data in the first row, I know how to do it, but...always is a "but", I do not know how to add a row and "old" data to be lowered by one row. I attached a sample file.
I really appreciate your help!
thank you

[john55]

hi,
i solved ii. i recorded a macro and modified a litlle bit the code. it works..

Private Sub CommandButton1_Click()
 
    Dim ws As Worksheet
     Dim rNextCl As Range
    Dim NextRw As Long
     Rows("4:4").Select
    Selection.Insert Shift:=xlDown
    With Sheet1    'find next empty row using Column H
        NextRw = .Cells(.Rows.Count, 9).End(xlUp).Row + 1
        
        .Cells(4, 6).Value = Now
        .Cells(4, 6).NumberFormat = "dd-mm- hh:mm"
        .Cells(4, 9).Value = Me.TextBox1.Value
        .Cells(4, 10).Value = Me.TextBox2.Value
        .Cells(4, 11).Value = Me.TextBox3.Value
        .Cells(4, 12).Value = Me.TextBox4.Value
        .Cells(4, 13).Value = Me.TextBox7.Value
        .Cells(4, 14).Value = Me.TextBox5.Value
       End With

thanks