need vba to fill values under particular header from master sheet

Try

Sub test()
    Dim a, i As Long, n As Long, x()
    With Sheets("master")
        a = Intersect(.Columns("a:d"), .UsedRange).Value
    End With
    With CreateObject("VBScript.RegExp")
        .Pattern = "([A-Z\d]{4})-(451414)-(0|\d{6})-([^-]+)-([^-]{4})$"
        For i = 2 To UBound(a, 1)
            If .test(a(i, 1)) Then
                n = n + 1: ReDim Preserve x(1 To n)
                x(n) = Split(.Replace(a(i, 1), "$1^" & Format$(.Replace(a(i, 1), "$3"), "0000") & _
                    "^$2^$4^$5^00000000^000^MAY-15^USD^AMOUNT^" & a(i, 4) & "^NO"), "^")
            End If
        Next
    End With
    With Sheets("BeforeAdjustment")
        .Rows("11:" & Rows.Count).ClearContents
        If n > 0 Then
            With .[e11].Resize(n, 12)
                .Columns(1).NumberFormat = "@"
                .Value = Application.Index(x, 0, 0)
            End With
        End If
    End With
End Sub

Maybe :

Sub Test()
  For Each cell In Sheets("Master").Range("A2:A20")
      If InStr(cell, "-451414-") Then Sheets("After run macro Adjustment").Cells(65000, "E").End(xlUp).Offset(1).Resize(, 12) = Application.Index(Split(Join(Array(Replace$(Replace$(cell, "-0-", "-000000-"), "-", "|"), "00000000", "000", "MAY-15", "USD", "AMOUNT", cell.Offset(, 3), "NO"), "|"), "|"), Array(1, 3, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12))
  Next cell
End Sub

Amazing Experts !!!!Perfect Code thanks alot

You are welcome, glad to help.


Regards