Insert new row at bottom of data range

try this...may be helpful for what you are looking for

Sub Macro1()

    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.EntireRow.Select
    
    Selection.Copy
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    RNO = ActiveCell.Row
   
    
    Cells(RNO, 2).ClearContents '< CHANGE HERE THE COLUMN NUMBER
    Cells(RNO, 3).ClearContents
    Cells(RNO, 4).ClearContents
    
    Cells(RNO, 1).Select
     
     
    
End Sub