autofill month in pasted data?

[Iniyavan]

Sub mM()
'
' m Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'

    Workbooks("Academic").Worksheets("Manpower Details").Activate
    Range("B" & Rows.Count).End(xlUp).Offset(1).Select
    'ActiveCell.Value = Format(Now(), "Mmm yy")
              
Dim ws As Worksheet
Dim lastRow As Long
Dim Alastrow As Long
Set ws = ActiveSheet
lastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
Alastrow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row
Range("B" & Alastrow).autofill Destination:=Range("B" & Alastrow & ":B" & lastRow)
'lastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
'ActiveCell.Copy Destination:=Range("B" & Alastrow & ":B" & lastRow).Value

Dim Cel As Range, necVal
Debug.Print ActiveCell.Address, ActiveCell.Value
necVal = ActiveCell.Value
For Each Cel In Range("B" & Alastrow & ":B" & lastRow).SpecialCells(xlCellTypeVisible).Cells
Cel.Value = necVal
Next Cel
'Range(ActiveCell.Address).Copy Destination:=Range("B" & Alastrow & ":B" & lastRow)


'ActiveCell.Offset(-1, 0).Activate
 '   Selection.FillDown
          
          
End Sub