Pasting Data On First Blank Sheet On A Sheet

I have several sheets with one master sheet. I have a trigger on each sheets that manipulates the data on that particular sheet. Here is the code I'm using:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim cell As Range

Set r = Intersect(Target, Range("A:A"))

[Code] .....

Now the point where i put new code is where i want the information from that particular row, column a thru column m to be special pasted linked to the first blank row from the top down to be pasted starting over from Column B. so A1 would be pasted on B1. I ran the recorder and got this as the code ActiveSheet.

Paste Link:=True so i do i incorporate what i want.