Como Generar La Hoja de Trabajo Contable

Tengo una macro que genera la hoja de trabajo Contable y la quiero modificar para adaptarla a mi proyecto, pero no la entiendo, alguien me puede ayudar.

' Autor: Gustavo Adolfo Sebastiani Cepeda
' web: www.excelnegocios.com
' Email: [email protected]
' Solo te pido que si tomas parte de este archivo coloques los créditos.

Sub bg()
Application.ScreenUpdating = False

With Sheets("EEFF")
.Columns("C:I").Delete
.Range("c1").Value = "BALANCE GENERAL"
.Range("c1").Font.Size = 20
.Range("c1:I1").Merge
.Range("c1").HorizontalAlignment = xlCenter
End With

With Sheets("ht")
For Each Rng In .Range("a4", .Range("a65536").End(xlUp))
Select Case Mid(Rng.Value, 1, 1)

Case "1", "2", "3"
If Rng.Offset(0, 6).Value <> 0 Then
With Sheets("eeff").Range("c65536")
.End(xlUp).Offset(1, 0).Value = Rng.Value
.End(xlUp).Offset(0, 1).Value = Rng.Offset(0, 1).Value
.End(xlUp).Offset(0, 2).Value = Rng.Offset(0, 6).Value
End With
End If

Case "4", "5"
If Val(Rng.Offset(0, 7).Value) <> 0 Then
With Sheets("eeff").Range("g65536")
.End(xlUp).Offset(1, 0).Value = Rng.Value
.End(xlUp).Offset(0, 1).Value = Rng.Offset(0, 1).Value
.End(xlUp).Offset(0, 2).Value = Rng.Offset(0, 7).Value
End With
End If
End Select
Next Rng
End With
With Sheets("eeff")
.Range("h65536").End(xlUp).Offset(1, 0).Value = "RESULTADO DEL EJERCICIO"

'.Range("h65536").End(xlUp).Offset(0, 1).Formula = "=SUM(" & "HT!" & Sheets("HT").Range("G65536").End(xlUp).Address & ":" & "HT!" & Sheets("HT").Range("H65536").End(xlUp).Address & ")"

If Hoja10.Range("b65536").End(xlUp).Offset(1, 5).Value > Hoja10.Range("b65536").End(xlUp).Offset(1, 6).Value Then

.Range("h65536").End(xlUp).Offset(0, 1).Formula = "= -" & Hoja10.Name & "!" & Hoja10.Range("g65536").End(xlUp).Address
Else
.Range("h65536").End(xlUp).Offset(0, 1).Formula = "=" & Hoja10.Name & "!" & Hoja10.Range("h65536").End(xlUp).Address
End If

.Range("h65536").End(xlUp).Offset(1, -4).Value = "TOTALES"

.Range("D65536").End(xlUp).Offset(0, 1).Formula = "=SUM(" & "E2" & ":" & "E" & .Range("D65536").End(xlUp).Offset(-1, 1).Row & ")"

.Range(.Range("D65536").End(xlUp), .Range("D65536").End(xlUp).Offset(0, 1)).Copy Destination:=.Range("D65536").End(xlUp).Offset(0, 4)

.Columns("a:j").AutoFit
End With

Application.ScreenUpdating = True
End Sub