MsgBox в VBA - VBA (48697)

Формулировка задачи:

Здравствуйте! Есть код который суммирует весь столбец и выводит диалоговое сообщение:

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton5_Click()
Dim s As Long
Dim LastRow As Long
    s = Cells(Rows.Count, 5).End(xlUp).Row
    Cells(s + 1, 5) = Application.WorksheetFunction.Sum(Range(Cells(2, 5), Cells(s, 5)))
LastRow = Cells(Rows.Count, 5).End(xlUp).Row
MsgBox "Сумма по всем строкам: " & LastRow, , ""
End Sub

И есть код который считывает количество строк в столбце и выводит диалоговое сообщение:

                    Листинг программы
                
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
MsgBox "Кол-во записей в столбце: " & iLastRow, , ""

Помогите сделать так что бы одной кнопкой я делал эти два действия и выводилось одно диалоговое окно, где мне сообщалось о кол-ве слолбцов и их сумме.

Решение задачи: «MsgBox в VBA»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton5_Click()
Dim s As Long
Dim LastRow As Long
Dim iLastRow As Long
Dim msg as string
s = Cells(Rows.Count, 5).End(xlUp).Row
Cells(s + 1, 5) = Application.WorksheetFunction.Sum(Range(Cells(2, 5), Cells(s, 5)))
LastRow = Cells(Rows.Count, 5).End(xlUp).Row
msg= "Сумма по всем строкам: " & Cells(LastRow, 5)'исправленно здесь
 
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
msg=msg & vbcrlf & "Кол-во записей в столбце: " & iLastRow
 
MsgBox msg, , ""
End Sub