Macro para insertar en excel

Hola necesito que me ayuden please, necesito una macro par que en determinado rango me inserte una celda, en las celdas que crea necesito poner formulas especificas pero no me resulta que puedo hacer , la macro que tengo es mas menos esta:

Sub Extra()
'
' Extra Macro
'
'
Range("B4:I4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("F4").Select
ActiveCell.Value = E4 - I4 - D4
Range("G4").Select
ActiveCell.Value = HORA(F4) + (MINUTO(F4) / 60)
Range("H4").Select
ActiveCell.Value = Realizada
Range("I4").Select
ActiveCell.Value = BUSCARV(B4;M20:O26;3;FALSO)
Range("B4").Select
ActiveWorkbook.Sabe
End Sub

Necesito que seleccione de (B4) a (I4) e inserte una nueva fila, en (F4) debe dejar =E4-I4-D4, en (G4) debe dejar =HORA(F4)+(MINUTO(F4)/60), en (H4) debe dejar Realizada, en (I4) debe dejar =BUSCARV(B4;M20:O26;3;FALSO), y luego seleccionar la celda (B4) y luego ActiveWorkbook.Sabe,, lo ise de maner manual y todo función, pero con la macro me tira error please ayuda urgente