Tack Anna
Problem ändå.
När jag kör macrot får jag felmeddelande Kompileringsfel: Sub eller Function har inte definierats.
Jag klipper in hela koden. Det skulle vara bussigt om du kan ta dig tiden och tipsa om vad jag har missat.
==============================================================================
Sub Lägg_till_tio_tg()
'
'
Dim InSistaRaden As Long
Range("B500:J509").Select
Selection.Copy
'Hitta sista raden som hållet ett text- eller talvärde.
'Här sker sökning radvis och baklänges.
InSistaRaden = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Cells(InSistaRaden + 1, 2).Select
Paste
End Sub
=====================================================================
Tack på förhand