shtOne.Activate
LastRow = shtOne.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
CntryID = Range("A" & i).Value
CatID = Range("D" & i).Value
Select Case CntryID
Case "USA"
DataRow = USRow
Case "Canada"
DataRow = CanRow
Case "Japan"
DataRow = JapRow
Case "Australia"
DataRow = OzRow
Case "Austria"
DataRow = AustriaRow
Case "France"
DataRow = FrogRow
Case "Germany"
DataRow = KrautRow
Case "Netherlands"
DataRow = DutchRow
Case "Switzerland"
DataRow = SwissRow
Case "United Kingdom"
DataRow = UKRow
Case Else
dummy = i
End Select
' Now have to find the categories by searching within the CatID string
If InStr(1, CatID, "PROSPECT MAIL", 1) = 1 Then
shtTwo.Cells(DataRow, 15 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "PROSPECT PMFU MAIL", 1) = 1 Then
shtTwo.Cells(DataRow, 16 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "PROSPECT TELEMARKETING", 1) = 1 Then
shtTwo.Cells(DataRow, 17 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "PROSPECT WEB", 1) = 1 Then
shtTwo.Cells(DataRow, 18 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "PROSPECT MEDIA", 1) = 1 Then
shtTwo.Cells(DataRow, 19 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "CUSTOMER MAIL", 1) = 1 Then
shtTwo.Cells(DataRow, 12 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "CUSTOMER WEB", 1) = 1 Then
shtTwo.Cells(DataRow, 14 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
If InStr(1, CatID, "CUSTOMER TELEMARKETING", 1) = 1 Then
shtTwo.Cells(DataRow, 13 + (DayNum - 2) * 10).Value = shtOne.Range(colData & i).Value / 1000
End If
Next i '