To jest tylko przykład, moźe ktoś ma ponazywane arkusze, wtedy rzeczywiście lepiej jest uźywać nazw bo wiadomo źe się nie pomylą. :]

Hej!!
Linie
i = InputBox("Ile wierszy mam kopiować")
For j = 1 To i
zamienił bym na linię
For j = 1 To Worksheets("Arkusz1").Range("A65536").End(xlUp).Row

Worksheets(1) nie określa konkretnego arkusza a pierwszy w kolejności występowania. Po zmianie kolejności arkuszy, moźe być wesoło.
Pozdrawiam

Witam, poniźej wklejam kod źródłowy makra o które prosiłeś

Sub Kopiowanie()
Dim i As Integer
i = InputBox("Ile wierszy mam kopiować")

For j = 1 To i
If Worksheets(1).Cells(j, 1) = Worksheets(2).Cells(j, 1) Then
Worksheets(1).Rows(j).Copy Destination:=Worksheets(3).Rows(j)
End If
Next j


End Sub