Private Sub cb1_Click() x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(x, 3) = "готово" ActiveSheet.Cells(x, 3).Interior.Color = 65535 End Sub
Sub insert_text() x = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, , xlPrevious).Row y = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1 ActiveSheet.Cells(x + 1, y) = "готов" ActiveSheet.Cells(x + 1, y).Interior.Color = 65535 End Sub