I have a Named Range "Quantities" (Worksheet Sheet1, cells I21:L28) that have formula that reports a the quantity in column "L". I would like to search Column L for values >0, and then Paste those Values (along with Data from Column K) into another worksheet (Sheet10). The following Code is close, but it paste the formula not the values. Please assist.
Sub CopyOnCondition()
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range
Set sh1 = Sheet1 'Edit sheet name
Set sh2 = Sheet10 'Edit sheet name
With sh1
For Each c In .Range("L18:L24")
If c.Value > 0 Then
c.Copy sh2.Cells(Rows.Count, 1).End(xlUp)(2, 1)
End If
Next
End With
End Sub