Copying data over to a master record

Hi tommypkoch

I'll be glad to look at this with you if your open to changing your Master Records layout from vertical to horizontal. Is that OK?

Hi tommy

I suspect you'll be wanting more from this...play with it, let me know.

Option Explicit

Sub Post_To_Master()
    Dim ws As Worksheet, ws1 As Worksheet
    Dim NR1 As Long

    Set ws = Sheets("Pslip")
    Set ws1 = Sheets("Master Records")

    With ws1
        NR1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Cells(NR1, "A").Value = Format(ws.Range("D5").Value, "mm/dd/yyyy")
        .Cells(NR1, "B").Value = Format(ws.Range("D6").Value, "mm/dd/yyyy")
        .Cells(NR1, "C").Value = ws.Range("D7").Value
        .Cells(NR1, "D").Value = ws.Range("D8").Value
        .Cells(NR1, "E").Value = ws.Range("D9").Value
        .Cells(NR1, "F").Value = ws.Range("D10").Value
        .Cells(NR1, "G").Value = ws.Range("D11").Value
        .Cells(NR1, "H").Value = ws.Range("D12").Value
        .Cells(NR1, "I").Value = ws.Range("D13").Value
        .Cells(NR1, "J").Value = ws.Range("B16").Value
        .Cells(NR1, "K").Value = ws.Range("B17").Value
        .Cells(NR1, "L").Value = ws.Range("F18").Value
        .Cells(NR1, "M").Value = ws.Range("F19").Value
        .Cells(NR1, "N").Value = ws.Range("F20").Value
        .Columns.AutoFit
    End With
End Sub

Hi tommy

Thanks for the rep.

If this resolves your issue please mark your Thread as SOLVED.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save