Hi there,
I am pretty new to MS Excel, but this is what i want to do. I have asked
for help on this already, but haven't had much luck. I apprevciate everyones
patiences.

I have a 'Site Master Log' sheet which contains site readings. There are
many site readings.

I want to be able to click a button on my user form and have the last row of
'Site Master Log' copied (including column headers) and pasted into new
workbook. This new workbook will be used as an attachment for a subsequent
email.

The code i was given (see below) stated the 'subscript was out of range',
but i don't know what that means.

Thanks for your help

Sub Button2_Click()
With Sheets("Site Reading Log") 'source
..Rows(.Cells(Rows.Count, "a").End(xlUp).Row).Copy Sheets("sheet16").Rows(1)
'destination

End With


End Sub

--
Carlee

Sub Button2_Click()
With Sheets("Site Reading Log") 'source
.Rows(.Cells(Rows.Count, "a").End(xlUp).Row).Copy Sheets("sheet16").Rows(1)
'destination

End With


End Sub

I think you should break your code in steps to see which line gives you an
error:


Sub Button2_Click()

'Go to the first cell of the source sheet
Set rng = Worksheets("Source").Range("A1")

'Simulate ctrl + down arrow
'to get the index of the last row
rowToCopy = rng.End(xlDown).Row

'Copy the last row
Worksheets("Source").Rows(rowToCopy).Copy _
Worksheets("Dest").Rows(1)

End Sub


--
urkec