Input information into another workbook on next available row

What I have so far:

Dim curWorkbook As Workbook
Set curWorkbook = ActiveWorkbook
Workbooks.Open "C:\logs\logbook.xls"
Workbooks("logbook.xls").Activate

What I need it to do is input information into columns A - C, using the next available row.

Basically it needs to open logbook.xls and do the following:


Take todays date and copy its value into A(whatever the next available row is) in logbook.xls
Take the filename of curWorkbook (minus its file extension) and copy its value into B(whatever the next available row is) in logbook.xls
Take the value of cell AM3 in curWorkbook and copy its value into C(whatever the next available row is) in logbook.xls

Maybe:

Sub ks100zz()
Dim curWorkbook As Workbook
Set curWorkbook = ActiveWorkbook
Workbooks.Open "C:\logs\logbook.xls"
Workbooks("logbook.xls").Activate
ActiveWorkbook.Sheets("Sheet1").Range("A" & Rows.count).End(3)(2).Value = Date
ActiveWorkbook.Sheets("Sheet1").Range("B" & Rows.count).End(3)(2).Value = Left(curWorkbook.Name, Len(curWorkbook.Name) - 4)
ActiveWorkbook.Sheets("Sheet1").Range("C" & Rows.count).End(3)(2).Value = curWorkbook.Sheets("Sheet1").Range("AM3").Value
End Sub

I used Sheet1 for both, you'll have too change the actual sheet names if they are different.

Originally Posted by JOHN H. DAVIS

Maybe:

Sub ks100zz()
Dim curWorkbook As Workbook
Set curWorkbook = ActiveWorkbook
Workbooks.Open "C:\logs\logbook.xls"
Workbooks("logbook.xls").Activate
ActiveWorkbook.Sheets("Sheet1").Range("A" & Rows.count).End(3)(2).Value = Date
ActiveWorkbook.Sheets("Sheet1").Range("B" & Rows.count).End(3)(2).Value = Left(curWorkbook.Name, Len(curWorkbook.Name) - 4)
ActiveWorkbook.Sheets("Sheet1").Range("C" & Rows.count).End(3)(2).Value = curWorkbook.Sheets("Sheet1").Range("AM3").Value
End Sub

I used Sheet1 for both, you'll have too change the actual sheet names if they are different.

Worked great, thanks. Is there any way to get it to do one more column and pull the data needed for the column from the documents sharepoint properties? I know the command to edit a sharepoint property is :

ActiveWorkbook.ContentTypeProperties("NameOfProperty").Value =

But how would I tell Excel to take the value of "NameOfProperty" and then following our sequence, put it in column D?

I'm afraid I'm not familiar with Sharepoint.