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