Fill and Value except first cell

Sub FillNValue()

Dim toValRng As Range 'technically could be set to Object
Dim toFillRng As Range

Set toFillRng = ThisWorkbook.Worksheets("FillDownM").Range("B2:B11") 'https://docs.microsoft.com/en-us/office/vba/language/concepts/getting-started/creating-object-variables
Set toValRng = ThisWorkbook.Worksheets("FillDownM").Range("B3:B11")

toFillRng.FillDown 'https://docs.microsoft.com/en-us/office/vba/api/excel.range.filldown
toValRng.Formula = toValRng.Value

End Sub