Điều chỉnh lại code dán giá trị Values (2 người xem)

[lhthai]

Mình có file code sau muốn sửa lại điều kiện copy cua shee1 như sau
Chỉ copy từ range(1:20) dán giá trí về sheet A 1
copy từ range(28:200) dán giá trí về sheet A 28

private Sub Copysheet_Click()
With Application.FileDialog(1)
        .InitialFileName = ThisWorkbook.Path
        .Title = "Chon file nguon"
        .FilterIndex = 3
        .AllowMultiSelect = False
        Do
            .Show
            If .SelectedItems.Count = 0 Then Exit Sub
            If .SelectedItems(1) = ThisWorkbook.FullName Then MsgBox "Khong chon file nay!"
        Loop Until .SelectedItems(1) <> ThisWorkbook.FullName
        With Workbooks.Open(.SelectedItems(1))[TABLE="width: 471"]
[TR]
[TD="class: xl158, width: 471"][COLOR=#ff0000]            .Sheets(1).Cells.Copy  ThisWorkbook.Sheets(1).[A1][/COLOR][/TD]
[/TR]
[/TABLE]
            .Close False
        End With
    End With
End Sub