I got the following code:
If Cells(1, 2) <> "VERDADEIRO" Then Workbooks.Open myFolder & "\" & strFilename, Local:=True
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy...