Сохранение файла с именем исходя из данных - VBA

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

Не сильно силен в формулах и VBA, подскажите как сделать так чтоб при нажатии кнопки "Сохранить файл" в таблице скрывались пустые строки и файл сохранялся на рабочем столе с именем согласно данных из файла (предмет-дата-класс), но при этом исходный файл оставался нетронутым и чистым от данных.

Решение задачи: «Сохранение файла с именем исходя из данных»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Кнопка3_Щелчок()
    Dim i&, LastRow&, MyPath$, UserName$, FileName$
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row - 3
    For i = 8 To LastRow
        If Trim(Cells(i, 2)) = "" Then Rows(i).Hidden = True
    Next
    UserName = CreateObject("WScript.Network").UserName
    MyPath = "C:\Users\" & UserName & "\Desktop"
    If Dir(MyPath, 16) = "" Then MyPath = "C:\Users\" & UserName & "\Рабочий стол"
    If Dir(MyPath, 16) = "" Then MyPath = "C:\Documents and Settings\" & UserName & "\Desktop"
    If Dir(MyPath, 16) = "" Then MyPath = "C:\Documents and Settings\" & UserName & "\Рабочий стол"
    FileName = MyPath & "\" & [C2] & " " & [C3] & " " & [C4] & ".xls"
    ActiveWorkbook.SaveAs FileName:=(FileName), FileFormat:=xlExcel8
End Sub