Makro w Excelu: Kopiowanie danych z aktywnego wiersza do końca arkusza

Sub Kopio_aktyw_wiersza()
'
' Kopiowanie danych z aktywnego wiersza kol. A do D
'

'
    Range("A4:D4").Select 'zakres do kopiowania zawsze w aktywnym wierszu kol. A do D
    Selection.Copy 'kopiowanie danych z aktywnego wiersza zakres zawsze taki sam kol. A do D
    Range("A6").Select ' wklejanie danych do wolnego wiersza na końcu danych w arkuszu
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Sub Kopio_aktyw_wiersza()

' Kopiowanie danych z aktywnego wiersza kol. A do D

    kolumna = 1
    ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row
    aktywny_wiersz = Selection.Row
    
    For x = 1 To 4
    Cells(ostatnia + 1, x) = Cells(aktywny_wiersz, x)
    Next x
    
End Sub

Sub Kopio_aktyw_wiersz()

' Kopiowanie wybranych danych z aktywnego wiersza

    kolumna = 2
    ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row
    aktywny_wiersz = Selection.Row
    
    For x = 2 To 17
    Cells(ostatnia + 1, x) = Cells(aktywny_wiersz, x)
    Next x
    
    kolumna = 4
    Cells(ostatnia + 1, 4).Select
    
    
End Sub