Merhaba . Butun makro calışıyor, sadece bir kısım calışmıyor. O kısmı atıyorum, kırmızı kısım hata veriyor ama nedenini anlamadım. Normalde sıkıntı yok gibi. Yardım edebilecek var mı?

If Sheets("bilgiler").Cells(7, 2).Value "Hayır" Then
k = Mid(Sheets("bilgiler").Cells(7, 2).Value, 1, 1) * 1 + 1

Sheets("OPTİK FORMLAR").Range(Sheets("OPTİK FORMLAR").Cells(2, k), Sheets("OPTİK FORMLAR").Cells(6, k)).Copy
wrdapp.Selection.PasteSpecial Link:=False, DataType:=4


i = .InlineShapes.Count
With .InlineShapes(i)
.Height = AspectHt(.Width, .Height, genislik)
.Width = genislik
End With
End If
__________________