Macro untuk Pindah Cell

Kode ini akan sangat  sering digunakan  dalam pemakaian  program macro, cara nya sangat  mudah:
copy code dibawah dan paste di module

Sub pindah_cell()


'kode dibawah untuk pindah 1 cell ke bawah
ActiveCell.Offset(1, 0).Select

'kode dibawah untuk pindah 1 cell ke atas
ActiveCell.Offset(-1, 0).Select

'kode dibawah untuk pindah 1 cell ke sampig kiri
ActiveCell.Offset(0, -1).Select

'kode dibawah untuk pindah 1 cell ke sampig kanan
ActiveCell.Offset(0, 1).Select


End Sub

penjelasan kode :
activecell  = posisi  cell yang aktif
offset(a,b)  =  a : row jika berpindah keatas pakai tanda (-),jika  pindah kebawah  tuliskan angka  yang mewakili  berapa row akan berpindah
                      b  :  kolom  jika berpindah kesamping kiri pakai tanda (-), jika ke samping tuliskan berapa
                              kolom akan berpindah.

mudah bukan.... silahkan  bereksperiment  dengan  kode diatas..