Olá,
Gostaria de saber como utilizar uma fórmula no VBA, ActiveCell.Offset(1, -1) = "=MÊS(B"n")" sendo n o numero da linha em que se encontra preenchida pela macro.
Segue o código:

Private Sub CommandButton1_Click()
If txt_precoarroba = "" Then
MsgBox ("preencha o valor da arroba do animal!!"), vbInformation, "atenção"

Else

Sheets("Sint. Vendas").Select

Range("b65536").End(xlUp).Select

ActiveCell.Offset(1, 0) = txt_data1
ActiveCell.Offset(1, 1) = box_categoria
ActiveCell.Offset(1, 2) = CInt(txt_peso)
ActiveCell.Offset(1, 3) = CInt(txt_qtde)
ActiveCell.Offset(1, 4) = CInt(txt_precoarroba)
ActiveCell.Offset(1, 5) = box_sexo
ActiveCell.Offset(1, 6) = txt_comprador
ActiveCell.Offset(1, -1) = "=MÊS(B and linha)"


End If
End Sub