Hello kewiopex,
Try this version of the macro and let me know how this works for you.
Sub TestB()
Dim Cell As Range
Dim DstWks As Worksheet
Dim LastCell As Range
Dim LastColumn As Long
Dim LastRow As Long
Dim Rng As Range
Set DstWks = ActiveSheet
' Start at Row 4
Set Rng = ActiveSheet.UsedRange
Set Rng = Intersect(Rng, Rng.Offset(3, 0))
' Save the last cell with Conditional Formatting.
For Each Cell In Rng
If Cell.FormatConditions.Count > 0 Then Set LastCell = Cell
Next Cell
' If there is a Last Cell with Condtional Formatting
' Copy and Paste the range to the destination with no values.
If Not LastCell Is Nothing Then
Rng.Copy DstWks.Cells(4, LastCell.Column + 1)
DstWks.Cells(4, LastCell.Column + 1).ClearContents
End If
End Sub