Siang master2 semua, saya membuat script hapus seluruh data cell terpilih sbb:

Dim Ws As Worksheet
Dim Kode As Variant
Dim C As Range

    If MsgBox("Apakah Anda Yakin Akan Menghapus Data?  " & txtNama.Text, vbYesNo + 48, "Pesan") = vbYes Then
    Set Ws = Worksheets("CopyData")
    Kode = Me.txtNomorInduk.Value
    With Ws.Range("B2:B20")
        Set C = .Find(Kode, LookAt:=xlWhole)
        If Not C Is Nothing Then
        m_lRowIndex = C.Row
            Ws.Cells(m_lRowIndex, 1).Value = ""
            Ws.Cells(m_lRowIndex, 2).Value = ""
            Ws.Cells(m_lRowIndex, 3).Value = ""
            Ws.Cells(m_lRowIndex, 4).Value = ""
            Ws.Cells(m_lRowIndex, 5).Value = ""
            Ws.Cells(m_lRowIndex, 6).Value = ""
        C.EntireRow.Delete
        End If
    End With
End Sub

Sub ArrangeNum()
Dim lstrow, i,
lstrow = Range("B2:B99999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lstrow
Cells(i, 1).Value = i - 1
Next i
End Sub

@Fujiansyah92
saya coba ya.

Sub ArrangeNum()
Dim lstrow, i
lstrow = Range("B2:B99999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lstrow
Cells(i, 1).Value = i - 1
Next i
End Sub

Yess.... it's worked. Berhasil bang, thanks

@Fujiansyah92
@Caton
dll

Ada pertanyaan lanjutan seputar hapus-menghapus via userform, misalkan saya punya Sheet dengan cells mengandung rumus tertentu, bisakah saya menghapus valuenya tapi tidak menghilangkan rumusnya, mungkin abang2 master punya contohnya.
thanks

@Caton

Menghapus value pada sebuah sel yang merupakan hasil kalkulasi dari sebuah formula pada sel tersebut, artinya akan menghapus formula itu sendiri... :)

Owh nooo....

kira kira solusi apa yang bisa dilakukan agar tidak bulak balik memasukan rumus dari data yg sudah dihapus? jadipekerjaan bisa terus kontinyu. misal dalam kasus akuntansi or lainnya.
ato bisakah rumus itu dimasukan via userform?

@Caton
wow.....!!! ok deh dicoba dulu... diggin' the clue :D

@Fujiansyah92 or @Caton
saya mencoba script Sub ArrangeNum() yang dicontohkan bang Fujiansyah92, scriptnya berhasil. kemudian saya mencoba sedikit perubahan pada row di sheet data dengan cara menambah dua row diatas (maksudnya nantinya u/ judul), yang otomatis logika saya bahwa script pun harus dirubah sbb Cells(i, 1).Value = i - 3 yang awalnya i-1.
Naaah... ketika aplikasi dijalankan, eng ing eng... ada value 0 dan -1 di row 2 dan 3 cell 1 yang tentu menghapus value/judul, jelasnya lihat gambar.

Mohon pencerahannya, bagaimana agar 0 dan -1 tidak muncul dan menghapus data cell satu di row.

Sub ArrangeNum()
Dim lstrow, i
lstrow = Range("B2:B20").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To lstrow
Cells(i, 1).Value = i - 3
Next i
End Sub

@Caton

Klo i = 2 maka i - 3 = 2 - 3 = -1 ... :) Mengapa tidak mencoba mengubah indeks baris pada script Cells(i, 1) saja menjadi:

Iya ko logika saya ngga kesana ya, kurang teliti.. hahahaha... asli saya baca komentar bang Caton jadi ketawa... kenapa ngga kepikiran kesana hahahaha... (malu) :P :D :D thanks

For i = 2 To lstrow
   Cells(i + 2, 1).Value = i - 1
Next i

Setelah dicoba lagi, mungkin karena keduanya berada diluar range Table yang saya buat (blok table), mungkin ya???

For i = 2 To lstrow - 2
   Cells(i + 2, 1).Value = i - 1
Next i