VBA Help! Compile Error - Expected End with - Text to Date Change

Hi Forum - I keep getting a Compile Error when trying this code. I'm trying to take a column range with dates in it and convert to 20XX dates.

I'm new to VBA; any help is appreciated.

Thanks

Sub Format_dates()

Sheets("Raw Data").Select

LastRow = Range("Q" & Rows.Count).End(xlUp).Row

With Range("R1")
.Value = "0"
.Copy
With Range("Q5:Q" & LastRow)
.PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
.NumberFormat = "mm/dd/yyyy"

End With
Application.CutCopyMode = False

End Sub