copy data if cell has values

[surkdidat]

Hi there

I need some sort of code if cell in row G has a value of £0.01 or more, then it copies this data, onto the next available line in a spreadsheet (ie Row 100 being the first line, then the next data held in Row G will go to row 101.) It will need to copy all data from cells A:G in that particular row

 

[surkdidat]

Update - I have found the below code, which I have modified, but for the bit where it states .EntireRow.Select, I only want it to select cells A:F in that particular row. I then need to have a formula to multiply data in cells C x D x E. If I add the formula in, it deletes this when I run the macro. **And I would like this on the main worksheet, starting from row 159 !!


For Each i In Range("f38:f57")
If i.Value > 0.01 Then
i.Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Sheets("Sheet2").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next i