Mong kiểm tra giúp em code này ạEm muốn lưu file hiện tại (từ A1G51)

Mong nhận được phản hồi của thầy ạ

Bạn tham khảo code mẫu ở đây nhé:

Sub Xuat_Data_ra_FileMoi()
    'Bien workbook
    Dim MyWB As Workbook, NewWB As Workbook
    Set MyWB = ThisWorkbook
    Set NewWB = Workbooks.Add
    
    'Dua du lieu ra workbook moi
    NewWB.Sheets(1).Range("A1:G51").Value = MyWB.Sheets(1).Range("A1:G51").Value
    'Code dinh dang du lieu
    
    'Code luu file
    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 2
        .Show
        If .SelectedItems.Count > 0 Then
            NewWB.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Else
            MsgBox ("No File Selected")
        End If
    End With
    
End Sub

Lưu ý về quy trình nhé. Hiện quy trình của bạn chưa đúng lắm.

- bước 1: tạo workbook mới và kết xuất dữ liệu ra  file mới

- bước 2: lưu file dựa theo filedialog SaveAs cho workbook mới đó.