@cahyono sidiq

coba skrip berikut :

Sub Tes()
Dim sh As Worksheet: Set sh = Sheet5
With Sheet6
For Each sel In .Range("C9:C18")
    If Len(sel) Then
        x = sh.Range("B" & Rows.Count).End(xlUp).Row + 1
        sh.Cells(x, 2) = "" 'INPUT NOP itu apa? silahkan rujuk ke selnya
        sh.Cells(x, 3) = "" 'NOP itu apa? silahkan rujuk ke selnya
        sh.Cells(x, 4) = .[D4]
        sh.Cells(x, 5) = Now
        sh.Cells(x, 6) = sel.Offset(0, 2)
        sh.Cells(x, 7) = sel.Offset(0, 3)
        sh.Cells(x, 8) = sel.Offset(0, 4)
        sh.Cells(x, 9) = .[D7]
    End If
Next
End With
End Sub

Note :
Karena baris yang di periksa untuk penambahan baris adalah kolom B (nilai x), maka jika ingin barisnya terus bertambah nilai INPUT NOP harus terisi

@cahyono sidiq ...mohon di koreksi...

ya, ± seperti itu

@cahyono sidiq Untuk Pemahaman bahasa VBA apa ada yang punya kamusnya ya? misal dim as string false dan yang lainnya supaya mudah memahami pengkodingan dan artinya....ada yang punya?

mungkin bisa coba pelajari lampiran-lampiran pada diskusi Belajar VBA & macro