Sub Wariant()
Dim WSDane As Worksheet
Dim rgBereich As Range
Dim zeile As Integer
Set WSDane = ThisWorkbook.Worksheets("Dane")
If ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row < 24 Then
zeile = 24
Else
zeile = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row
End If
WSDane.Range("C26:D26").Copy
ActiveSheet.Cells(zeile + 1, 10).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C26:D26").ClearContents
Range("D29").Value = "Ready"
End Sub