Using a macro within a workbook, I am wishing to paste information from other
worksheets into an existing work sheet which already contains rows of data.
The macro should be able to determine the first empty row and then paste. I
cannot determine which function to use and how?

--
Bruce

Sub lookit()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Set r1 = Selection

For i = 1 To Rows.Count
If Application.CountA(s2.Rows(i)) = 0 Then
r1.Copy s2.Cells(i, "A")
Exit Sub
End If
Next
End Sub

Select the material you want to copy on Sheet1; the macro sill copy it to
the first blank row in Sheet2
--
Gary''s Student - gsnu200758


"Bruce64" wrote:

Using a macro within a workbook, I am wishing to paste information from other
worksheets into an existing work sheet which already contains rows of data.
The macro should be able to determine the first empty row and then paste. I
cannot determine which function to use and how?

--
Bruce

See also
http://www.rondebruin.nl/copy1.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Bruce64" wrote in message ...
Using a macro within a workbook, I am wishing to paste information from other
worksheets into an existing work sheet which already contains rows of data.
The macro should be able to determine the first empty row and then paste. I
cannot determine which function to use and how?

--
Bruce

This is very close to what I'm looking for EXCEPT
I want it to paste the validation edits ONLY.
Theo

"Gary''s Student" wrote:

Sub lookit()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Set r1 = Selection

For i = 1 To Rows.Count
If Application.CountA(s2.Rows(i)) = 0 Then
r1.Copy s2.Cells(i, "A")
Exit Sub
End If
Next
End Sub

Select the material you want to copy on Sheet1; the macro sill copy it to
the first blank row in Sheet2
--
Gary''s Student - gsnu200758


"Bruce64" wrote:

Using a macro within a workbook, I am wishing to paste information from other
worksheets into an existing work sheet which already contains rows of data.
The macro should be able to determine the first empty row and then paste. I
cannot determine which function to use and how?

--
Bruce