Copiar celdas cuando la celda se pinta de rojo

Hola,
en mi Sheet1 tengo el siguiente código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'if left cell is dark red painted
If (Target.Offset(0, -1).Interior.Color = 192) Then
LastRow = Sheets("Errors_list").Range("A" & Rows.Count).End(xlUp).Row + 1
CopyRange = "A" & Target.Row & ":D" & Target.Row
PasteRange = "A" & LastRow & ":D" & LastRow
Target.Offset(0, -10).Range(CopyRange).Copy Destination:=Sheet4.Range(PasteRange)
End If
End Sub
Al inspeccionar los rangos veo que las celdas son correctas, pero no se porque no me copia el contenido de mis celdas en la Sheet4
¿Alguien sabe que puede estar pasando?