[belajar-excel] Macro Membuat Nomor Urut

[ChordJR]

Dear Be-Exceller,

Mau tanya tentang macro yang sudah saya buat kok tidak bisa berjalan 
sesuai keinginan...mohon di koreksi apabila ada kesalahan pada coding"nya...

Sub AutoShape6_Click()
     Dim rngOut As Range, rngFields As Range
     Dim lHitung As Long, lFields As Long

     Set rngOut = Sheet2.Range("a8").Offset(1, 0)
     Set rngFields = rngOut.End(xlDown)
     lHitung = 0
     lFields = rngFields.Count
     lHitung = lHitung + 1

     With rngOut
         .Value = lHitung
         .Resize(0, rngFields).DataSeries Rowcol:=xlColumns, 
Type:=xlLinear, Date:=xlDay, _
         Step:=1, Trend:=False
     End With
End Sub

Wassalam,

Indra