Tilføj tekst i bunden af ark

er det sådan du mener

Public Sub SidsteLinie()
Dim str As String
str = InputBox("Indtast tekst til sidste linie")
Rowcount = Cells(65536, 1).End(xlUp).Offset(1, 0).Row
Cells(Rowcount, 1).Value = str
Range(Cells(Rowcount, 2), Cells(Rowcount, 5)).Interior.ColorIndex = 3
Range(Cells(Rowcount, 1), Cells(Rowcount, 5)).Borders.LineStyle = xlContinuous
Range(Cells(Rowcount, 1), Cells(Rowcount, 5)).Borders.Weight = xlMedium
Range(Cells(Rowcount, 1), Cells(Rowcount, 5)).Borders(xlInsideVertical).LineStyle = xlNone
End Sub

lige præcis, så mangler der bare et svar :o)

et svar ;-))

tak for pointz