gå til næste tomme celle

Prøv at skifte koden ud med det her:

Sheets(\"INDTASTNINGS ARK\").Select
Range(\"S1\").Select
Application.CutCopyMode = False 
Selection.Copy
Sheets(\"DATABASE\").Select
x = 3
While Cells(x,1).Value<>\"\"
  x = x + 1
Wend
Cells(x,1).Select 
Selection.PasteSpecial Paste:=xlValues,  Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False

denne kan også:
Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S1\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"A65536\").End(xlUp).Select           
    Selection.Offset(1, 0).Select
    Range(\"A3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

bak >> Du skal i hvert fald lige huske at fjerne linjen: Range(\"A3\").Select

Her er hele koden det virker ikke helt som forventet da det er hele rækken som skal flyttes en linie ned
Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S1\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"A3\").Select
    x = 3
While Cells(x, 1).Value <> \"\"
  x = x + 1
Wend
Cells(x, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S2\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"B3\").Select
      x = 3
While Cells(x, 1).Value <> \"\"
  x = x + 1
Wend
Cells(x, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S3\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"C3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S4\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"D3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S5\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"E3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S6\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"G3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S7\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    ActiveWindow.SmallScroll ToRight:=7
    Range(\"H3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S9\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"J3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"N5:O5\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range(\"S10\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"K3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S11\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"L3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S12\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"M3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S13\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"N3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S14\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"O3\").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Sheets(\"INDTASTNINGS ARK\").Name = \"INDTASTNINGS ARK\"
    Range(\"S15\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"P3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S16\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"Q3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S17\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"R3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S18\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"S3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    ActiveWindow.SmallScroll Down:=21
    Range(\"C39:J39\").Select
    ActiveWindow.SmallScroll Down:=-6
    Range(\"S19\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"T3\").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S20\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"U3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S21\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"V3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S22\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"W3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S23\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"X3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S24\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"Y3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S25\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"Z3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S26\").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"AA3\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets(\"INDTASTNINGS ARK\").Select
    ActiveWindow.SmallScroll Down:=-18
    Application.CutCopyMode = False
    Range(\"G1\").Select
End Sub

Lillejens >> For at det virker på andre kolonner end kolonne A, skal du huske at rette i linjen:
While Cells(x, 1).Value <> \"\"
1-tallet skal udskiftes med det korrekte nummer på kolonnen (1 svarer til kol. A, 2 svarer til kol. B, osv.)

lillejens>> test lige denne her. Burde kunne erstatte din makro
Sub Macro1()
    Sheets(\"INDTASTNINGS ARK\").Select
    Range(\"S1:S26\").Select
    Selection.Copy
    Sheets(\"DATABASE\").Select
    Range(\"A65536\").End(xlUp).Select
    Selection.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
    Range(\"D14\").Select
End Sub

sorry. sidste linie (range(\"d4\").select) skal ikke med

Jeg ville angribe det lidt anderledes:

Sub Macro1()
Dim rCell As Range
Dim iRow As Integer, iX As Integer
    Worksheets(\"DATABASE\").Select
    Range(\"A65536\").End(xlUp).Select
    iRow = ActiveCellse.Row

    For Each rCell In Worksheets(\"INDTASTNINGS ARK\").Range(\"S1:S26\")
        iX = iX + 1
        Worksheets(\"DATABASE\").Cells(iRow + 1, iX) = rCell
    Next rCell

End Sub

den ser ud til at virke bortset fra indsæt spec.-værdier der er ene kryds freferenser der bliver indsat

Nu ved jeg ikke, om det var mig du talte til, men hvis der er, så tilføj .Value 2 gange på denne linie

  Worksheets(\"DATABASE\").Cells(iRow + 1, iX).Value = rCell.Value

flemming jeg får fejl på denne linje
iRow = ActiveCellse.Row

Skal være:
iRow = ActiveCells.Row

jeg får stadig fejl run-time error 424 selv med iRow = ActiveCells.Row

Undskyld:
iRow = ActiveCell.Row

flemmings svar kunne bruges med lidt hjælp fra janvogt mange tak til alle

tak - jan
god fornøjelse - lillejens