Copy and Paste Between 2 sheets

[Guest]

I have 2 Sheets ,Sheet("Graph") and Sheet("Main") I used this command but it quite long because it have to go between Graph and Main do you have anyidea to improve this ?
If Range("K16").Value <> "-" then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
If Range("K17").Value <> "-" then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
If Range("K18").Value <> "-" then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
........
........
............. many many

Thanks

 

[Ivan F Moala]

Dim oCell As Range


For Each oCell In Range("K16:K25")
If oCell.Value <> "-" Then
Sheets("Graph").Range("AR5").Copy
Sheets("Graph").Cells(i + 1, 44).PasteSpecial
End If
Next


ivan

 

[Guest]

Thanks..