Ok folks, needing a wee bit of help with this. My skills arent the greatest but I have worked this so far - and just need help to finish.

My VB Code is as follows

Sub CopySheet()
    Dim wsMaster2 As Worksheet
    Application.ScreenUpdating = False
    Sheets("MASTER").Copy After:=Sheets(2)
    With Sheets("Master (2)")
        Sheets("Diary System").Range("B5:H5").Copy
        Range("H12").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        .Range("H12,C8") = "123"
        .Range("I12,B5") = "ham"
        .Range("C9") = "Await RM Update"
        .Range("F8:F9") = "Yes"
        .Range("M12,C16,N12,C15") = "6/10/2014"
        With .Range("H12:N12")
        .ClearContents
        End With
        .Visible = False
    End With
    Sheets("Diary System").Select
    Application.ScreenUpdating = True
    
End Sub
I need to amend it a bit so that instead of copying this line "Sheets("Diary System").Range("B5:H5").Copy" - It will copy those cells from the active row each time.

Also - not sure how to make it copy the value each time rather than the value thats already in the VB