iRow = [Counta(Muayene!A:A)] + 1

şu kod içersine "muayene" kelimesinin yerine değer gireceğim mesela şöyle
dim sheetname as string
sheetname = "accesstr"

iRow = [Counta(   sheetname     !A:A)] + 1


neden bunda ısrarcıyım çünkü sayfa ismi "Muayene" iken tam istediğim sonuç elde ediyorum ama bu sayfa ismi sabit olmayacak değişebilen bir değer
o yüzden bu kod satırına nasıl sheetname olarak sayfa ismi girebilirim