2010 Macro not working in 2016 Excel

Hi,

Can you post the macro code here?

Sub Copycopy()
'Ventas
Range("J210").Copy
With Sheets("Evaluación").Range("d" & Rows.Count).End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlPasteValues
End With

Range("k210").Copy
With Sheets("Evaluación").Range("d" & Rows.Count).End(xlUp).Offset(0, 1)
.PasteSpecial Paste:=xlPasteValues
End With

'Unidades
Range("J211").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 2)
.PasteSpecial Paste:=xlPasteValues
End With

Range("k211").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 3)
.PasteSpecial Paste:=xlPasteValues
End With

'Precios
Range("J212").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 4)
.PasteSpecial Paste:=xlPasteValues
End With

Range("k212").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 5)
.PasteSpecial Paste:=xlPasteValues
End With

'CM$
Range("J213").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 6)
.PasteSpecial Paste:=xlPasteValues
End With

Range("k213").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 7)
.PasteSpecial Paste:=xlPasteValues
End With

'Var$
Range("J214").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 8)
.PasteSpecial Paste:=xlPasteValues
End With

Range("k214").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 9)
.PasteSpecial Paste:=xlPasteValues
End With

'Var Real$
Range("J215").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 10)
.PasteSpecial Paste:=xlPasteValues
End With

Range("k215").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 11)
.PasteSpecial Paste:=xlPasteValues
End With

Range("j216").Copy
With Sheets("Evaluación").Range("d" & Columns.Count).End(xlUp).Offset(0, 21)
.PasteSpecial Paste:=xlPasteValues
End With



End Sub

Why are you using Columns.Count in all the blocks after the first two? They should all be Rows.Count

Please note that your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

I cannot say why it works from one location and not another- I would need to see the workbook. If you do not receive an error, the macro must be copying something to a location each time, but it may not be the location you expect. In any event, using Columns.Count made no sense.