data inserted in rows disappears

Hi ncaravela

try change the select code to

ThisWorkbook.Sheets("Base Dados").Activate
        Sheets("Base Dados").Cells(Rows.Count, "F").End(xlUp).Offset(1, -5).Select
        Do