Thank you.
But I still need to offset the activecell to "Total" to select.copy the
value in H. Since I won't know how many rows there are between "Paid" "Total"
Regards,

"Dave O" wrote:

Minimally, the code looks like this:

Sub Copy_If_Paid()
If ActiveCell.Value = "Paid" Then
ActiveCell.Offset(0, 7).Copy
End If
End Sub

This works when the cell pointer is already on cell A1. A lot depends
on how your information is displayed on the spreadsheet. Do you have
many rows of Paid / Unpaid entries? Often I'll have a macro process
many rows in a spreadsheet, and I'll use a DO loop to repeat an
operation until it reaches the first blank row, or I enter the word
"Stop" when the data rows have ended.
What does your information look like?

Dave O