bagaimana cara mengkoding macro menghapus satu baris data dengan catatan bila baris diatas cell H itu 0 maka bisa dihapus, lebih dari 0 tidak dapat dihapus
koding macro tersebut ada di macro2 kalau di dalam sheet saya taruh di tombol undo
macro 1 mengimput data sudah bisa
mohon bantuannya
terima kasih

Public Sub HapusData()
    Dim objTable As ListObject

    Set objTable = Sheet2.ListObjects("TabelData")
    If (objTable.ListRows.Count > 0) Then
        With objTable
            If (.Range(.ListRows.Count + 1, .ListColumns.Count).Value = 0) Then
                .ListRows.Item(.ListRows.Count).Delete
            End If
        End With
    End If

End Sub

If (.Range(.ListRows.Count, .ListColumns.Count).Value = 0) Then

If (.Range(.ListRows.Count + 1, .ListColumns.Count).Value = 0) Then

begini mas @Caton jadi nilai 1 dan 0 dimaksutkan ketika saya klik tombol tambah maka baris data akan dibuat baru dengan nilai 0 dan baris data lama akan bertambah nilainya 1, dimaksutkan ketika saya ingin mengulang data bila salah saat melakukan pembelian maka saya menekan tombol undo maka data yg bernilai 0 akan terhapus sedangkan data yg nilainya diatas 0 tidak akan terhapus dimaksutkan bila terjadi kesalahan menekan tombol undo berulang2 baris datas lama tidak terhapus jadi yg terhapus baris data sebelumnya setelah menekan tombol tambah.

jadi pada inti permasalahannya tombol undo berfungsi menghapus data dari hasil kita tekan tombol tambah dan bila menekan tombol undo lagi maka colom data yg lama tidak terhapus jadi cuma satu colom data saja yg kita input tadi yg akan terhapus.

btw mantap banget bantuan masnya rapi sekali. saya masih menggunakan record macro jadi terlihat sangat sederhana hehehe

terima kasih mas @Caton ini yang saya cari :D
btw sheet 2 itu diartikan apa ya? halaman ke 2? atau nama dari sheet?