VBA

Sub test()

Dim rng As Range
Dim sht As Worksheet
Dim Lastrow As Long

Set sht = ThisWorkbook.Sheets("Sheet1")
Lastrow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row


Set rng = Range("H2:H" & Lastrow)
rng.Formula = "=TEXT(F2,("MMM-dd"))"

End Sub