Copy down adjacent formuale using VBA (multiple columns)

Thanks for your help and advice.

I ended up reordering the code in the worksheet change event and it now works...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Target.Row
Select Case Target.Column
Case Is = 1
Call UnprotectSheet
Range("C" & r - 1).Copy Range("C" & r)
Range("E" & r - 1).Copy Range("E" & r)
Range("H" & r - 1).Copy Range("H" & r)
Call ProtectSheet
End Select
End Sub


Thanks.