Macro didn't copy all the rows from one sheet to another workbook using Mac, but works fine on Windows

[Zem32619]

Hi. Been trying to figure out my code that would copy all content on sheet 1 to another worksheet when the macro is run in Mac, but works perfectly when run on Windows.
Can anyone here pls extend some generous help, been stuck here and do some google search but still unlucky to find solutions. Below is my code. Thank you in advance.

Sheets("Sheet1").Select
Range("$A$1:$AG$" & lr).Select ' Select the range with data
Cells.Select
Selection.copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Range("L2:L" & lr).copy Destination:=Range("K2")
Selection.copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("L:O").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
Columns("V:V").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select

 

[DanteAmor]

Range("$A$1:$AG$" & lr).Select

The macro you put is not complete. The value of the variable lr is missing.
In addition to putting your full macro.
You could explain in your words what you want to copy and where you want to paste it.

 

[GWteB]

Try ...

Sub zem32619()
    Sheets("Sheet1").Copy
    With ActiveSheet
        .Columns("L:O").Delete Shift:=xlToLeft
        .Columns("V:V").Delete Shift:=xlToLeft
        .UsedRange.Value = .UsedRange.Value
        .Range("A1").Select
    End With
End Sub

 

[Zem32619]

The macro you put is not complete. The value of the variable lr is missing.
In addition to putting your full macro.
You could explain in your words what you want to copy and where you want to paste it.

HI DanteAmor,
Yes, I just want to copy the whole data in Sheet1 to another workbook. This code works for WIndows, but not on Mac as it just copies partial data.

Sub Copy_Sheet()
Sheets("Sheet1").Select
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Range("$A$1:$AG$" & lr).Select ' Select the range with data
Cells.Select
Selection.copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
End Sub

 

[DanteAmor]

It's a bit confusing, that's why I asked you for an explanation with your words, but now you put another macro, and it's still confusing for me.
In this line you select a range of cells:
Range("$A$1:$AG$" & lr).Select ' Select the range with data


But in this line you select all the cells, this disables the previous selection.
Cells.Select
So you are copying all cells.

____________________________
According to your macro, which cells are copied on windows and which cells on the mac?

 

[Peter_SSs]

This is effectively a duplicate to: VBA code don't copy all the data in a column to another column, only partial data in Mac OS

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.