How do I make my Macro stop copying the title row too??

[dig475]

Hi,
In my macro, I am copying and pasting a value, this is the code:

If Cells(i, 7).value > 0 Then
With Cells(i, 7).Select
Selection.Copy
Cells(i, 9).Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Unfortunately, I can not figure out how to copy the value ONLY if it is a number (rather than the title as well).

Does this make sense? If yes, can you help?

 

[njimack]

Does this make sense?

Not really. For starters, you haven't posted all of your code. What value does i hold? Why is your code copying the title row? Have your tried stepping through your code using F8?

Also, the code you posted could be condensed to:

With Cells(i,7)
If .Value > 0 Then Cells(i,9) = .Value
End With

 

[dig475]

Here is all of my code:
'How many rows do we have today?
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
'Loop through each row
For i = 17 To FinalRow
'check to see if column 7<0
'if it is <0, then copy the cell and paste to column 8
If Cells(i, 7).Value < 0 Then
With Cells(i, 7).Select
Selection.Copy
Cells(i, 8).Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End If
'check to see if column 7>0
'if it is <0, then copy the cell and paste to column 9
If Cells(i, 7).Value > 0 Then
With Cells(i, 7).Select
Selection.Copy
Cells(i, 9).Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End If
Next i
Where i is the row, does this make more sense?