exelden worde veri aktarma

[bars.1]

Arkadaşlar öncelikle kolay gelsin exelden worde veriyi aşağıda ki kod ile aktarabiliyorum. Ancak satır sayısı sürekli değişiklik gösteriyor ve satır sayısında "i = ActiveSheet.UsedRange.Rows.Count" makro koduyla bulabiliyorum. Sorum iki kodu nasıl birleştireceğim Range Komutuna i değişkenini yazamıyorum hata veriyor. Yardım edecek bir arkadaş çıkarsa çok memnun olurum.
"fName = Application.InputBox("yeni", "yasin")
If fName = 1 Then
ActiveSheet.Name = fName
Range("A1:K25").Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.Selection.PasteSpecial Link:=False, DataType:=10
With objword.ActiveDocument.PageSetup
.TopMargin = objword.CentimetersToPoints(1) ' üstten boşluk
.BottomMargin = objword.CentimetersToPoints(1) 'alttan boşluk
.LeftMargin = objword.CentimetersToPoints(1) 'soldan boşluk
.RightMargin = objword.CentimetersToPoints(1) 'sağdan boşluk
End With
objword.ActiveDocument.SaveAs "C:\Users\bars\Desktop\deneme\" & fName & ".doc"
End If"

 

[leumruk]

Range("A1:K" & i).Copy

 

[bars.1]

Çok teşekkür ederim tam istediğim gibi oldu. Yeni bir konu açmadan size müsaitseniz bir soru daha sorabilir miyim ?

 

[bars.1]

Aşağıda ki kodla istediğim bir yere belirli bir satır ekleyip daha sonra hücreleri birleştirebiliyorum, birleştirdiğim hücrenin sağına ve soluna kenarlık ekleyebilir miyim?
SATIR EKLEME
Range("A7:I7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sub sondolu_satir()
i = ActiveSheet.UsedRange.Rows.Count
MsgBox i
End Sub
HÜCRELERİ BİRLEŞTİRME
Sayfa1.Range("A1:H1").Merge
Sayfa1.Cells(1, 1) = "adasdasdasdasadsdadsdaadadasdasdasdadsasdasdasdasdasdsadsdaad"
Sayfa1.Cells(1, 1).HorizontalAlignment = xlJustify

 

[leumruk]

Sayfa1.Range("A1:H1").Borders(xlEdgeRight).LineStyle = xlContinuous
Sayfa1.Range("A1:H1").Borders(xlEdgeLeft).LineStyle = xlContinuous

 

[bars.1]

teşekkürler

 

[assenucler]

Merhaba bars.1,

Size özel mesaj yolladım.