The cursor has to be in the cell containing the data, hence...

AddPara ActiveCell.Text, ActiveCell.Row, ActiveCell.Column