Copy cell contents?
 

Mark,
Not sure I follow, as column K is 11 not 12, but something like:

With Cells(i, 10)
If .Value 0.2 Then .Offset(0, 1).Value = .Offset(0, -9).Value & ":
3 day average is " & Format(.Value, "0%")
End With

NickHK

"Mark J" wrote in message
...
i have a workbook with the following table:

Row column(A) column(J) column(K)
1 PS003_Pump1.RT_Daily -0.08
2 PS003_Pump2.RT_Daily -0.04
3 PS010_Pump1.RT_Daily 0.04
4 PS010_Pump2.RT_Daily 0.02
5 PS005_Pump1.RT_Daily -0.03
6 PS005_Pump2.RT_Daily -0.03
7 PS006_Pump1.RT_Daily -0.06
8 PS006_Pump2.RT_Daily 0.21
9 PS007_Pump1.RT_Daily -0.01
10 PS007_Pump2.RT_Daily -0.01

i would like to have the following:

If Cells(i, 10) 0.2 Then
Cells(i, 12) = PS006_Pump2.RT_Daily & "3 day average is" & 21%

as below:

Row column(A) column(J) column(K)
1 PS003_Pump1.RT_Daily -0.08
2 PS003_Pump2.RT_Daily -0.04
3 PS010_Pump1.RT_Daily 0.04
4 PS010_Pump2.RT_Daily 0.02
5 PS005_Pump1.RT_Daily -0.03
6 PS005_Pump2.RT_Daily -0.03
7 PS006_Pump1.RT_Daily -0.06
8 PS006_Pump2.RT_Daily 0.21 PS006_P2 = 21%
9 PS007_Pump1.RT_Daily -0.01
10 PS007_Pump2.RT_Daily -0.01