Try this. Post back if you need more. HTH Otto
Sub CopyData()
Dim Dest As Range
If Application.CountA(Range("A1:A100")) 0 Then
With Sheets("List")
Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1)
Range("A1:H100").Copy Dest
End With
End If
End Sub
"tomhelle" wrote in message
...
I have a workbook containing a worksheet called €œList€� and many worksheet
templates. I need a macro to select cells A1:H100 on any of the worksheet
templates, copy all data within this range but only if A1:A100 is not
blank,
and then paste the data on the worksheet called €œList€�. Ill use a button
to
activate the macro on each individual worksheet template. When the user
activates the macro on the first template, the data will be copied and
pasted
to the €œList€� starting at cell A1. When the user activates the macro on
any
of the subsequent templates, the data will copied and pasted on the €œlist€�
starting at the next empty row in column A. In other words, I want the
user
to be able to add data to the list from any of the templates.

I dont have much experience with vba therefore, any help for a novice to
apply this would be greatly appreciated.

Thanks in advance,

Tom