How to get data from form to paste into new sheet on next empty row

J Moore 0 Reputation points
2023-04-26T14:10:25.4366667+00:00

"Tracking" is the sheet where the form is on and the data is input "log" is the sheet where i would like all the data to paste but i would like for each paste to go to the next row. Here is my VBA Code: Sub Range_Copy() 'Copy data from tracking sheet to log sheet 'belt style Worksheets("Tracking").Range("C7").Copy Worksheets("Log").Range("B3").End(xlDown).Row + 1 'Batch # Worksheets("Tracking").Range("C9").Copy Worksheets("Log").Range("C3").End(xlDown).Row + 1 'OAG Spec 'Worksheets("Tracking").Range("K7").Copy Worksheets("Log").Range("D3") 'Tolerance 'Worksheets("Tracking").Range("O7").Copy Worksheets("Log").Range("E3") 'Date Worksheets("Tracking").Range("O9").Copy Worksheets("Log").Range("A3").End(xlDown).Row + 1 'Operator side measurments Worksheets("Tracking").Range("C12").Copy Worksheets("Log").Range("F3").End(xlDown).Row + 1 Worksheets("Tracking").Range("D12").Copy Worksheets("Log").Range("G3").End(xlDown).Row + 1 Worksheets("Tracking").Range("E12").Copy Worksheets("Log").Range("H3").End(xlDown).Row + 1 Worksheets("Tracking").Range("F12").Copy Worksheets("Log").Range("I3").End(xlDown).Row + 1 Worksheets("Tracking").Range("G12").Copy Worksheets("Log").Range("J3").End(xlDown).Row + 1 Worksheets("Tracking").Range("H12").Copy Worksheets("Log").Range("K3").End(xlDown).Row + 1 Worksheets("Tracking").Range("I12").Copy Worksheets("Log").Range("L3").End(xlDown).Row + 1 Worksheets("Tracking").Range("J12").Copy Worksheets("Log").Range("M3").End(xlDown).Row + 1 Worksheets("Tracking").Range("K12").Copy Worksheets("Log").Range("N3").End(xlDown).Row + 1 Worksheets("Tracking").Range("L12").Copy Worksheets("Log").Range("O3").End(xlDown).Row + 1 Worksheets("Tracking").Range("M12").Copy Worksheets("Log").Range("P3").End(xlDown).Row + 1 Worksheets("Tracking").Range("N12").Copy Worksheets("Log").Range("Q3").End(xlDown).Row + 1 Worksheets("Tracking").Range("O12").Copy Worksheets("Log").Range("R3").End(xlDown).Row + 1

Excel
Excel
A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
1,078 questions
Office Development
Office Development
Office: A suite of Microsoft productivity software that supports common business tasks, including word processing, email, presentations, and data management and analysis.Development: The process of researching, productizing, and refining new or existing technologies.
3,038 questions
0 comments No comments
{count} votes