Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a           As Range
    Dim r           As Long

    On Error GoTo ExitHandler

    Dim rng         As Range
    Set rng = Intersect(Target, Me.Range("A:P"))
    If rng Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each a In rng.Areas

        For r = Application.Max(3, a.Row) To a.Row + a.Rows.Count - 1
            Me.Range( _
                    Me.Cells(r - 1, a.Column), _
                    Me.Cells(r - 1, a.Column + a.Columns.Count - 1) _
                    ).Copy

            Me.Cells(r, a.Column).PasteSpecial xlPasteFormats
        Next r

    Next a

ExitHandler:

    Application.CutCopyMode = False
    Application.EnableEvents = True
End Sub