O que eu já fiz até agora: Sub colardados() Dim lastRow As Long Dim lasColumn As Integer lastRow = Cells(Cells.Rows.Count, "A").End(xlUp)...