こういうご質問のときには、お手許の ブック の「Private Sub CommandButton?_Click()」に書いてある コード をお示しいただいた方がよいかと存じますが、内容が分かりませんので、下記の コード をご覧いただいて、ご参考になさってください。 ＞(1)「月」がかわった時点で、自動的に１行挿入し、 ＞「収入」「支出」「補助金」のその月の合計、 ＞「残高」はその額をいれる 　「簿記」の知識が皆無で、理解が間違っているかも知れませんので「ご参考までに」ということで。。。 　とりあえず、各月の最初の行は「残高」を「0」にしております。 　繰越残高で付けられる場合は、一番最後の myRng(7).Offset(1).Value = 0 の行は削除してください。 Option Explicit Dim myRng As Range Private Sub CommandButton1_Click() 　Set myRng = Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) 　With UserForm1 　　myRng(1).Value = Split(.TextBox1.Value, "/")(0) 　　myRng(2).Value = Split(.TextBox1.Value, "/")(1) 　　myRng(3).Value = .TextBox2.Value 　　myRng(4).Value = .TextBox3.Value 　　myRng(5).Value = .TextBox4.Value 　　myRng(6).Value = .TextBox5.Value 　　If myRng.Row = 4 Then 　　　myRng(7).FormulaR1C1 = "RC[-2]-RC[-1]" 　　Else 　　　myRng(7).FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]" 　　End If 　　myRng(8).Value = .TextBox6.Value 　　If myRng.Row <> 4 And myRng(1).Value <> _ 　　　myRng(1).Offset(-1).Value Then Call 月度更新 　End With End Sub Sub 月度更新() 　Dim myRow As Long 　myRng.EntireRow.Insert 　Set myRng = myRng.Offset(-1) 　If myRng(1).Offset(-2).Value = "" Then 　　myRow = 1 　Else 　　myRow = myRng(1).Offset(-1).End(xlUp).Row - 1 　End If 　If myRow = 2 Then myRow = 3 　myRng(4).Value = myRng(1).Offset(-1).Value & "月合計" 　myRng(5).FormulaR1C1 = "=SUM(R[-" & myRow & "]C:R[-1]C)" 　myRng(6).FormulaR1C1 = "=SUM(R[-" & myRow & "]C:R[-1]C)" 　myRng(7).FormulaR1C1 = "=R[-1]C" 　myRng(8).FormulaR1C1 = "=SUM(R[-" & myRow & "]C:R[-1]C)" 　myRng(7).Offset(1).Value = 0 End Sub ＞(2)Ｄ列の会計区分を・・・までの数字で種別しています。 ＞指定した月集計（例：４月から９月まで）での区分ごとに ＞集計した表を別シートに転記する 　これは「マクロ」ではなくて、標準のワークシート関数でお考えになった方が間違いがないかと存じます。