What is wrong with this code? Compile error etc

Hi there,

I'm sure this is a really simple error, does anyone know what the problem is with the below code?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1:B900")) Is Nothing Then Exit Sub
Call CopyActiveCell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D1:D900")) Is Nothing Then Exit Sub
Call CopyActiveCell1
End Sub

Many thanks