Excelで家計簿ソフトを作ってみよう

Private Sub MyDataSort()
    Dim ln1 As Long
    Dim ln2 As Long
    
    'データが入力されている最下行を取得
    ln1 = Sheets("日々の収入・支出入力").Range("B65536").End(xlUp).Row
    ln2 = Sheets("日々の収入・支出入力").Range("D65536").End(xlUp).Row
    If ln2 > ln1 Then
        ln1 = ln2
    End If
    ln2 = Sheets("日々の収入・支出入力").Range("E65536").End(xlUp).Row
    If ln2 > ln1 Then
        ln1 = ln2
    End If
    ln2 = Sheets("日々の収入・支出入力").Range("F65536").End(xlUp).Row
    If ln2 > ln1 Then
        ln1 = ln2
    End If
    ln2 = Sheets("日々の収入・支出入力").Range("G65536").End(xlUp).Row
    If ln2 > ln1 Then
        ln1 = ln2
    End If
    
    '1.日付　2.費目 でソートする
    ActiveSheet.Range(Cells(11, 1), Cells(ln1, 7)).Sort _
         Key1:=Range("B1"), Order1:=xlAscending _
        , Key2:=Range("D1"), Order2:=xlAscending _
        , Header:=xlYes _
        , MatchCase:=False _
        , Orientation:=xlTopToBottom _
        , SortMethod:=xlPinYin
End Sub