How to copy data to next empty row of another worksheet in Excel?
Supposing you want to copy certain data in range A1:E1 of Sheet1 and paste it quickly to the next empty row of Sheet2 in a workbook as below screenshot shown, what can you do easily achieve it? This article will introduce a VBA method for you.
Recommended Productivity Tools for Excel
Office Tab: Bring powerful tabs to Office (include Excel), just like Chrome, Safari, Firefox and Internet Explorer. Save you half the time, and reduce thousands of mouse clicks for you. 30-day Unlimited Free Trial
Kutools for Excel: Save 71% of your time and solve 82% Excel problems for you. 300+ advanced tools designed for 1500+ work scenario, make Excel much easy and increase productivity immediately.60-day Unlimited Free Trial
You can run the below VBA code to copy data in a certain sheet and paste to the next empty row of another worksheet automatically.
1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy and paste the below VBA code into the Module window.
VBA code: copy data to next empty row of another worksheet
Private Sub CommandButton1_Click() Dim xScreenUpdating As Boolean Dim xPasteSht As Worksheet Dim xRg As Range Dim xTxt As String On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub Set xPasteSht = Worksheets("Sheet2") xScreenUpdating = Application.ScreenUpdating Application.ScreenUpdating = False xRg.Copy xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = xScreenUpdating End Sub
Note: In the code, Sheet2 is the destination worksheet of the copied data. You can change it based on your need.
3. Press the F5 key to run the code, in the popping up Kutools for Excel dialog box, please select the range you want to copy to the next empty row of Sheet2, and then click the OK button. See screenshot:
Then the copied data of Sheet1 is pasted to the next empty row of the specific Sheet2 immediately as below screenshot shown: