I have a macro which runs the PasteData macro.

Since the parameters 1 to 5 get populated with new data each time this
macro is run, I want this macro to move to the next empty row and paste
the new record into that row. This process or macro is re-run/
repeated.

What my macro currently does is only paste to the fixed row cells and
fails to move to next row of empty cells. A2 to E2 Only

Public Sub PasteData()

'Workbooks("Book1").Activate
'Worksheets("Sheet1").Select

Dim PCount As Integer

Cells(1, 2).Select

PCount = 2

Cells(PCount, 1).Value = "Par1"
Cells(PCount, 2).Value = "Par2"
Cells(PCount, 3).Value = "Par3"
Cells(PCount, 4).Value = "Par4"
Cells(PCount, 5).Value = "Par5"


PCount = PCount + 1

End Sub


Is this doable..

So the table would look like this.

Table Results:

Col1 Col2 Col3 Col4 Col5
-------------------------------------------------------------------------------------------------
Row1 Par1 Par2 Par3 Par4 Par5
Row2 Par1 Par2 Par3 Par4 Par5
Row3 Par1 Par2 Par3 Par4 Par5
Row4 .... Next Empty row to be filled in when the PasteData macro is
run again.




Many thanks... Brenda