ví dụ muốn lấy số dòng nhiều hơn vdSub luu_du_lieu()Dim dongcuoi As Long dongcuoi

thưa thầy ví dụ muốn lấy số dòng nhiều hơn vd:Sub luu_du_lieu()

Dim dongcuoi As Long

    dongcuoi = Sheets("nhatkysanluong").Range("A" & Rows.Count).End(xlUp).Row

    Sheets("nhatkysanluong").Range("A" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("D6").Value

    Sheets("nhatkysanluong").Range("B" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("B10:B50").Value

    Sheets("nhatkysanluong").Range("C" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("D7").Value

    Sheets("nhatkysanluong").Range("D" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("C10:C50").Value

    Sheets("nhatkysanluong").Range("E" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("A10:A50").Value

    Sheets("nhatkysanluong").Range("F" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("D10:D50").Value

    Sheets("nhatkysanluong").Range("G" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("E10:E50").Value

    Sheets("nhatkysanluong").Range("H" & dongcuoi + 1).Value = Sheets("phieunhap_sl").Range("H10:H50").Value

End Sub

Nhưng khi chạy code chỉ lấy dc 1 dòng đầu thui làm sao để lấy hết các dòng muốn lấy