Copy active lines to new worksheet

[KimC2504]

Hi, I am very rusty with my VBA and need to write some quick code so I am hoping someone can help me. I have a list of data with amounts in column F. If Column F is greater than zero, then I want to copy data from column B, C & F into worksheet 2. I got this to work however column F is a formula and it copies the formula and I need the value. When I tried to use .pasteSpecial xlPasteValues my code wouldn't work. Any suggestions??

Sub COPY_active_lines()
For MY_ROWS = 4 To 100
If Range("F" & MY_ROWS).Value > 0 Then
Range("B" & MY_ROWS & ":C" & MY_ROWS).Copy _
Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End If

Next MY_ROWS

For MY_ROWS = 4 To 100
If Range("F" & MY_ROWS).Value > 0 Then
Range("f" & MY_ROWS).Copy _
Sheets("Sheet2").Range("d" & Rows.Count).End(xlUp).Offset(1, 0)
'.PasteSpecial xlPasteValues

End If

Next MY_ROWS


End Sub

 

[VoG]

Try

Sub COPY_active_lines()
For MY_ROWS = 4 To 100
If Range("F" & MY_ROWS).Value > 0 Then
Range("B" & MY_ROWS & ":C" & MY_ROWS).Copy _
Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End If

Next MY_ROWS

For MY_ROWS = 4 To 100
If Range("F" & MY_ROWS).Value > 0 Then
Range("f" & MY_ROWS).Copy
Sheets("Sheet2").Range("d" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

End If

Next MY_ROWS


End Sub