Sub CapNhat()
Dim historyWks As Worksheet, inputWks As Worksheet
Dim nextRow As Long, oCol As Long
Dim myRng As Range, myCell As Range
Dim myCopy As String
myCopy = "D7,C8,C9,H7,H8,H9,H10,E11,E12,E13"
Set inputWks = Worksheets("phieu thu")
Set historyWks = Worksheets("chi tiet")
With historyWks
nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
End With
With inputWks
Set myRng = .Range(myCopy)
If Application.CountA(myRng) <> myRng.Cells.Count Then
MsgBox "Vui long dien day du thong tin!"
Range("D7").Select
Exit Sub
Else
.PrintOut
End If
End With
With historyWks
oCol = 1
For Each myCell In myRng.Cells
historyWks.Cells(nextRow, oCol).Value = myCell.Value
oCol = oCol + 1
Next myCell
End With
With inputWks
On Error Resume Next
With .Range(myCopy).Cells.SpecialCells(xlCellTypeConstants)
.ClearContents
Application.Goto .Cells(1)
End With
On Error GoTo 0
End With
End Sub
