Snasui Excel Forum

Code: Select all

Sub click1_1()
    Dim intRows As Long
    Dim n As Range, sn As Range
    intRows = Rows.Count
    With Sheets("Sheet1")
        Set n = .Range("A" & intRows).End(xlUp).Offset(1, 0)
    End With
    Set sn = Sheets("Sheet2-1").Range("A4:d4")
    sn.Copy
    n.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "ได้รับข้อมูลแล้ว"
End Sub