Trying to transfer data from one sheet to a separate workbook

[estep32]

I'm not that experienced at using some of the advanced features of excel but am trying to learn. I'm currently trying to put together a spreadsheet for my job that will allow for us to input information on one spreadsheet, click a button, and have that information transferred to a master workbook for reference. There will be several different employees inputting info simultaneously and updating the master daily. Basically what there will be is employee name, equipment ID, work performed, time spent, complete, and date. Once the employee puts in the info and clicks the button, the data gets sent to a master sheet and the end result is a daily log of all the work performed throughout the shift. Is this possible? Please help.....I'm struggling!

[JOHN H. DAVIS]

Does this help?

Sub estep32()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.UsedRange.offset(1).Copy Sheets("Master").Range("A" & Rows.count).End(3)(2)
End Sub

[estep32]

I found this online but it's giving me an error saying ("Libraries\Documents\DriftReportLog.xlxs could not be found. Check the spelling of the file name, and verify that the file location is correct. It all seems good to me. Any help?

Private Sub CommandButton1_Click()
Dim Mechanic As String
Dim EquipmentID As String
Dim WorkPerformed As String
Dim TimeSpent As String
Dim Complete As String
Dim DriftReportLog As Workbook

Worksheets("sheet1").Select
Mechanic = Range("C4")
Worksheets("sheet1").Select
EquipmentID = Range("C5")
Worksheets("sheet1").Select
WorkPerformed = Range("C6")
Worksheets("sheet1").Select
TimeSpent = Range("C7")
Worksheets("sheet1").Select
Complete = Range("C8")

Set DriftReportLog = Workbooks.Open("Libraries\Documents\DriftReportLog")
Worksheets("sheet1").Select
Worksheets("sheet1").Range("A2").Select
RowCount = Worksheets("sheet1").Range("A2").CurrentRegion.Rows.Count
With Worksheets("sheet1").Range("A2")
.Offset(RowCount, 0) = Mechanic
.Offset(RowCount, 1) = EquipmentID
.Offset(RowCount, 2) = WorkPerformed
.Offset(RowCount, 3) = TimeSpent
.Offset(RowCount, 4) = Completesx
End With
DriftReportLog.Save
End Sub

[estep32]

I found this online but it's giving me an error saying ("Libraries\Documents\DriftReportLog.xlxs could not be found. Check the spelling of the file name, and verify that the file location is correct. It all seems good to me. Any help?

Private Sub CommandButton1_Click()
Dim Mechanic As String
Dim EquipmentID As String
Dim WorkPerformed As String
Dim TimeSpent As String
Dim Complete As String
Dim DriftReportLog As Workbook

Worksheets("sheet1").Select
Mechanic = Range("C4")
Worksheets("sheet1").Select
EquipmentID = Range("C5")
Worksheets("sheet1").Select
WorkPerformed = Range("C6")
Worksheets("sheet1").Select
TimeSpent = Range("C7")
Worksheets("sheet1").Select
Complete = Range("C8")

Set DriftReportLog = Workbooks.Open("Libraries\Documents\DriftReportLog")
Worksheets("sheet1").Select
Worksheets("sheet1").Range("A2").Select
RowCount = Worksheets("sheet1").Range("A2").CurrentRegion.Rows.Count
With Worksheets("sheet1").Range("A2")
.Offset(RowCount, 0) = Mechanic
.Offset(RowCount, 1) = EquipmentID
.Offset(RowCount, 2) = WorkPerformed
.Offset(RowCount, 3) = TimeSpent
.Offset(RowCount, 4) = Completesx
End With
DriftReportLog.Save
End Sub