Zellbereich definieren

[PBCJürgen]

Hallo,

Mein Problem, der Wert der aus S14 kopiert wird, soll nur im diesem Bereich BC13:BC15  geschrieben werden

der Bereich wird dann immer wieder bereinigt, ist nur eine Info

ich hab folgend Code:

    ActiveSheet.Unprotect
    Dim LastRow As Long, Aktrow As Long
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    LastRow = Sheets("14-1-Endlos").Cells(Rows.Count, 55).End(xlUp).Row + 1
    Range("S14").Copy
    Sheets("14-1-Endlos").Cells(LastRow, 55).PasteSpecial Paste:=xlPasteValues
    LastRow = LastRow + 1
    Aktrow = Aktrow + 1



für eine Lösung wäre ich Dankbar.

gruß