Sheets("Base").Cells.Find(What:="s20", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, -8).Select
Sheets("Base").Range(Selection, Selection.End(xlToRight)).Select
Sheets("Base").Range(Selection, Selection.End(xlDown)).Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count + 2).Select