Blz, consegui resolver!

Boa tarde!! Eu não mudei nada na rotina principal, apenas em alguns métodos. Sub Gravar_Compras() Dim Data As Date Dim Codigo As Variant Dim Descr A...