A)
[VBA]
Private Sub Worksheet_Change(ByVal Target As Range)

Dim TargetPoint As Range
Set TargetPoint = Range("B5:B65536")
If Not Intersect(Target , TargetPoint) Then Exit Sub

Dim CopyRange As Range
Set CopyRange = Range("C3:J3")
Dim PasteRow As Long
PasteRow = Target.Row
Dim PasteColumn As Long
PasteColumn = 3

CopyRange.Copy destination:=Cells(PasteRow, PasteColumn)
[/VBA]

B)Say that you have Values and Formulas in Range (B5:J20).
If "ClearContents" in Range( B10) Then
Shift Formulas in Range (C11:J11) up to Row 10

For sure, all the Cells below (C11:J11) follow shift up.

Is that correct question?