EXCEL Kopiowanie wierszy z innego arkusza niż aktywny

Witam Mam następujący programik do kopiowania wierszy który działa dobrze.
Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza. Nie wiem jak rozumieć "G20" - którym się ustawia arkusz z którego ma być kopiowanie??

Public Arkusz_Nazwa As String

Sub ewidencja_ksiegowa()

End Sub
Sub czysc()

'kopiowanie()'
'miejsce z kąd kopiowane
Sheets(ActiveSheet.Range("G20").Value).Select
Range("A70:AX70").Select
Selection.Copy
'miejsce kopiowania
Sheets(5).Select
ActiveSheet.Cells(82, 1).Select 'DO
ActiveSheet.Paste
End Sub

Mam także inną prośbę - mianowicie ten program był skopiowany z innego programu i nie mogę usunąć następującej części:

Sub ewidencja_ksiegowa()

End Sub

Facetjanusz napisał:

..
Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza...

Dzięki markoz - po przeróbce świetnie działa, co uprościło mi sprawę . Teraz robię program z kopiowaniem w celu segregacji w/g daty zakupu - pewnie będę jeszcze prosił o pomoc.
Pozdrawiam Janusz

Bez zbędnych selectów

Pytałem o kopiowanie wierszy -jednak do mojego programu potrzebne jest "przestawienie" wiersza na inną linię. Pokrótce omówię dołączony kawałek programu.
Chciałbym aby faktury mogły być wpisywane do książki w dowolnej kolejności , a program ustawiał je w/g dat. Program już kontroluje i nie przyjmie faktury z innego kwartału, jedynie w danym kwartale powinien wstawić wpisywaną fakturę w/g miesiąca i dnia jej powstania! Próbowałem to zrobić za pomocą kopiowania wiersza (po przekopiowaniu należy wyczyścić linię w której chwilowa znajdowała się faktura). Nie mogę sobie poradzić jak w tym programie zrobić aby "A20:BA20" (linia odczytu) oraz "A19" (początek zapisu) można było wstawić jako zmienne ?

Zastosuj taki wzór:
Private Sub USTAWIANIE_Click()
Worksheets("AA").Activate
Wiersz_ost = Worksheets("AA").Range("a12").End(xlDown).Row + 1
x = Wiersz_ost

For i = 1 To x - 1
Data1 = Cells(x + 1, 3).Value
Dzień1 = Left(Data1, 2)
Miesiąc1 = Mid(Data1, 4, 2)
Data2 = Cells(x - i, 3).Value
Dzień2 = Left(Data2, 2)
Miesiąc2 = Mid(Data2, 4, 2)
If Dzień2 > Dzień1 Then
Sheets(2).Select
Range("A20:BA20").Select
Selection.Copy
Sheets(2).Select
Range("A19").Select
ActiveSheet.Paste
End If
Next

End Su

Dzięki Ci bardzo za zainteresowanie tematem.