Syntax je to najmenej, čo tam nie je dobre. Malo by to vyzerať nejako takto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("List1").Activate
If ActiveCell.Column <= 3 Then
ActiveCell.Value = Target.Value
End If
End Sub