ActiveCell.Offset ile hücre seçimi

[DeliBalta58]

Makro ile verilerimi aktardıktan sonra en son kaydın 2 alt hücresini seçip
Aktif hücre ile 1 sol hücresini (ActiveCell.Offset(0,-1 ) ) hücre birleştir yapmak istiyorum.

son = WorksheetFunction.CountA(eczn.[B2:B65000]) ' Hücre Saydırdım
eczn.Cells(son + 2, 2).Select                                ' En son hücrenin 2 altını seçtim
ActiveCell.Offset(0, -1).ClearContents ' Aktif Hücrenin 1 Sonrasının içeriğini temizledim

aktif hücre ile 1 sol hücresinin birleştirip " TOPLAMLAR" yazmalıyım
bunun için yardımcı olabilirmisiniz

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?
Başka yöntem(ler) her zaman olabilir.

Sub Macro1()
    Range(ActiveCell.Offset(0, -1), ActiveCell).Merge
    Range(ActiveCell.Offset(0, -1), ActiveCell) = "TOPLAMLAR"
End Sub

 

[DeliBalta58]

Teşekkürler