Search for a value in a column which is equal to cell value in another sheet, then copy paste to new location

I need to search column R in sheet 2 for the integer value from sheet 1 Cell A1. Then need to copy 20 cells along row sheet 2, then paste to cell G8 sheet 2. I've tried this code but don't know what to enter in the Find(What:= or copy bits

Columns("R:R").Select
    Set cell = Selection.Find(What:="??????", After:=ActiveCell,  LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)