Pasting month names

Sub jan2dec()
    Dim FillAddress As String
    FillAddress = "g13"
    Range(FillAddress).FormulaR1C1 = "Jan"
    Range(FillAddress).Resize(ColumnSize:=12).DataSeries _
        Rowcol:=xlRows, _
        Type:=xlAutoFill, _
        Date:=xlDay, _
        Trend:=False
End Sub