Thử xem nhé !
Mã:
Sub Save_GPE()
With Sheet2.Range("B65500").End(xlUp)
.Offset(1, -1).Value = Sheet1.Range("E4").Value
If .Row > 3 Then 'neu co nhieu du lieu
.Offset(1).Value = .Value + 1
Else
.Offset(1).Value = 1
End If
.Offset(1, 1).Value = Sheet1.Range("C6").Value
.Offset(1, 2).Value = Sheet1.Range("C7").Value
.Offset(1, 3).Value = Sheet1.Range("F6").Value
.Offset(1, 4).Value = Sheet1.Range("F7").Value
.Offset(1, 5).Value = Sheet1.Range("C15").Value
.Offset(1, 6).Value = Sheet1.Range("C16").Value
End With
ThisWorkbook.Save
MsgBox "Save thanh cong !", , "GPE"
End Sub