Insert new row after last data inserted

[Mehmud Khan]

Hi,

Can anyone help into this...
When I click to Ins button than a row must insert after the last task data fed by me.
Please refer the attached file...

Thank and Regards!
Mehmud

 

[Nebu]

Hi:

May be this code:

Sub test()
Dim b As Object
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        c& = .Row
    End With
i& = Me.Cells(Rows.Count, 4).End(xlUp).Row - 1
If Cells(i, 1) <> vbNullString Then: Rows(c + i).EntireRow.Insert
End Sub

Thanks