Copy and paste macro

[DagmaraB]

Hello, could someone please put me in the right direction as to what maybe wrong with this code. It was working fine but something must have happened overnight.

Sub Move()
'
' Move Macro
'

'
    Range("Orders").Select
    Selection.Copy
    'find next free cell in destination sheet
    Dim NextFreeCell As Range
    Set NextFreeCell = ThisWorkbook.Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Offset(1).Row

'copy&paste
    NextFreeCell.PasteSpecial xlPasteValuesAndNumberFormats
    With Range("A:A,C:C").NumberFormat = "General"
   End With
   
    
End Sub

 

[6StringJazzer]

What do you expect this code to do, and what does it do instead? Be specific.

Also, nothing just "happens" overnight in code.

 

[DagmaraB]

What do you expect this code to do, and what does it do instead? Be specific.

Also, nothing just "happens" overnight in code.

It just copies the data from Orders tab but does not transfer it into the DATA tab. Error is with Set NextFreeCell

 

[NoSparks]

The posted code doesn't compile.
You can't set a range to just a row number.

 

[DagmaraB]

The posted code doesn't compile.
You can't set a range to just a row number.

The range that it is being copied is a table. Are you able to help me solve the problem please?

 

[NoSparks]

try removing .Row