Macro loop

[jstuffle]

Hello, i have a macro that takes information from one tab to another that i found, and at the moment it only does it for one row. what and where do i add to it to make it do until end of table, sometimes there will be blank information (no information on other tab), or after every 15 or 17 rows (so can rewrite as needed) will be a total column, so it needs to skip these if able, but not too big of a deal. My excel macro skills are non existent at this time. macro is follows. thank you. so any and all help will be appreciated.

Sub DataPull()
'
' DataPull Macro
' Copy text from the "Data" sheet based on the cell to the left of the currently active cell.
'
' Keyboard Shortcut: Ctrl+d
'
On Error GoTo DataPullError
Dim Find As String
Dim Cur As String
Dim x As Long
Dim y As Long

If ActiveCell.Column = "1" Then
MsgBox "Data macro looks up based on the cell to the left of the current cell.", vbExclamation, "Data Pull macro"
Exit Sub
End If

Find = ActiveCell.Previous

Do
x = x + 1
Cur = Worksheets("Data").Range("A" & x).Value
If Cur = Find Then
For y = 0 To 14
Cur = Worksheets("Data").Range(Chr(66 + y) & x).Value
If ActiveCell.Next(1, y) = "" Then ActiveCell.Next(1, y) = Cur
Next y
End If
Loop Until Cur = ""

Exit Sub
DataPullError:
MsgBox Err.Description, vbCritical, "Data Pull macro"
End Sub