mismatch error

[londa_vba]

Code worked until I messed with it. Tweak needed.
I wanted to move the pasting destination to begin at AA3 on Sheet C but I am now getting an error message regarding line 29 type mismatch

Sub PopulateCEPrep()
Dim arrRanges() As String
Dim arrWorksheets() As String
Dim Ws As Worksheet
Dim i As Integer
Dim ii As Integer
Dim intRow As String
Dim rng As Range
ActiveWorkbook.Save
    
Worksheets("Sheet C").Activate
    
With Worksheets("Sheet C")
.Range("AA3:AA" & .Cells(.Rows.Count, "AA").End(xlUp).Row).Value = ""
End With
arrRanges = Split("B8:B33,B39:B64,B70:B95,B101:B126", ",")
        
arrWorksheets = Split("G,R,Y", ",")
    
intRow = 3
    
For i = LBound(arrWorksheets) To UBound(arrWorksheets)
        
For ii = LBound(arrRanges) To UBound(arrRanges)
            
For Each rng In Worksheets(arrWorksheets(i)).Range(arrRanges(ii))
If Len(Trim(rng.Value)) > 0 Then
Worksheets("Sheet C").Cells(intRow, 27).Value = rng.Value
intRow = intRow + 1
End If
 Next rng
            
 Next ii
        
 Next i
    
Worksheets("Sheet C").Range("AA3").Select
    
'MsgBox intRow - 5 & " rows of data copied", vbOKOnly, "Confirmation"

 

[StephenCrump]

What is the exact error message you are getting? And on which line of code?

If you have an error value anywhere in the ranges "B8:B33,B39:B64,B70:B95,B101:B126" in worksheets "G", "R" or "Y", you will get a Run-time error '13': Type mismatch error when you test the cell value on this line of code:

If Len(Trim(rng.Value)) > 0 Then

 

[StephenCrump]

Duplicate: https://www.mrexcel.com/board/threads/vba-copy-and-paste.1246082/#post-6111836

 

[Fluff]

Duplicate to: VBA copy and paste

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.