Copy with offset cell containing particular character

Hello,
again i need your precious help!
I've found this code:

Sub Search_and_Move() 
    Dim sTemp As String 
    sTemp = Range("A1").Text 
    If InStr(1, sTemp, "R", vbTextCompare) Then Range("A1").Offset(-1,11).EntireRow.Copy _ 
    Destination:=Range("A1").Offset(0,11)
End Sub

But I need this to run in batch for each non empty cell in range A:A. I've made several attempts but my knowledge is too low .

If you need more details let me know!

Thanks