I have having trouble with this code and receiving the application defined /object defined error message.
The sheet names and range names are correct. What else am I missing?
Thanks
Mike
The sheet names and range names are correct. What else am I missing?
Thanks
Mike
Code:
'Select Template to copy based on Actual Data
Sub CopyTemptoDataSh()
Dim i As Integer, n As Integer
Dim LastRow As Long
Set ws = Worksheets("ActualData")
Dim Ce As Range, rngCopy As Range
With ws
For n = 2 To 200
For Each Ce In Worksheets("ActualData").Range("A" & n) 'Ce = start #'s.SpecialCells(xlCellTypeVisible)
LastRow = Range("A65536").End(xlUp).Offset(1, 0)
Select Case n 'Count each loop to determine which "Datai" Sh is copy destination
Case n = 2 To 22
i = 1
Case n = 21 To 40
i = 2
Case n = 41 To 60
i = 3
Case n = 61 To 80
i = 4
Case n = 81 To 100
i = 5
Case n = 101 To 120
i = 6
Case n = 121 To 140
i = 7
Case n = 141 To 160
i = 8
Case n = 161 To 180
i = 9
Case n = 181 To 200
i = 10
Case Else
End Select
Select Case Ce.Offset(, 2).Value
Case "1S", "1SP", "2S", "2SP"
Worksheets("Templates").Range("Temp" & Ce.Offset(, 2).Value).Copy Destination:=Worksheets("Data" & i).Range("A65536").End(xlUp).Row
End Select
Next Ce
Next n
End With
End Sub