VBA Not copy all of data from second page..... Please help

[NHagedorn]

Sub Better()
Application.ScreenUpdating = False
Dim wsCDR As Worksheet
Dim LastRowWs As Long
Dim LastRowCDR As Long
Dim StartRowCDR As Long

Set wsCDR = ThisWorkbook.Worksheets("CDR")
LastRowCDR = wsCDR.Cells(wsCDR.Rows.Count, "A").End(xlUp).Row + 1
wsCDR.Range("A2:AK" & LastRowCDR).Clear

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "CDR" Then

LastRowWs = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
StartRowCDR = wsCDR.Cells(wsCDR.Rows.Count, "A").End(xlUp).Row + 1 'first empty row
ws.Range("A2:AK" & LastRowWs).Copy Destination:=wsCDR.Range("A" & StartRowCDR)
LastRowCDR = wsCDR.Cells(wsCDR.Rows.Count, "A").End(xlUp).Row

wsCDR.Range("E" & StartRowCDR & ":E" & LastRowCDR) = ws.Name
End If
Next
Application.ScreenUpdating = True
End Sub



This sub is copying and pasting the first sheet correctly, but the second sheet is only copying data from column A to column K. Column L to AK are zeros? Any ideas why or how I can fix?

Thank you

 

[NHagedorn]

Thinking it may be something to do with the values copying from both sheets are copy and pastes from other sheets? When the change one sheet to values seems to work.