Compile Error: Procedure Too Large

N

NewbietoVBA

New Member
Joined
Aug 24, 2011
Messages
14
I know this error means I have too much in one Macro, but I keep getting other errors messing up when I try to split it into several macros and call each one in the main macro. I am VERY new at this, and I know my code is an absolute mess, but I am trying to just get this thing to run. Any and all help would be GREATLY appreciated. And I'm not up on all the lingo, so you may need to "laymanize" it for me.

Here is my code...... I know its extremely long. Any Ideas on how to break this up so that the Compile Error stops popping up?


Sub Macro2()

Sheets("Current_Detail").Select
Columns("G:Z").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
[G1] = "Current Pos"
[H1] = "Beg Date"
[I1] = "2011 Rating"
[J1] = "2011 Rating Date"
[K1] = "Pos_2"
[L1] = "Beg Date"
[M1] = "2010 Rating"
[N1] = "2010 Rating Date"
[O1] = "Pos_3"
[P1] = "Beg Date"
[Q1] = "2009 Rating"
[R1] = "2009 Rating Date"
[S1] = "Pos_4"
[T1] = "Beg Date"
[U1] = "2008 Rating"
[V1] = "2008 Rating Date"
[W1] = "Pos_5"
[X1] = "Beg Date"
[Y1] = "2007 Rating"
[Z1] = "2007 Rating Date"
[AA1] = "Pos_6"
[AB1] = "Beg Date"
[AC1] = "2006 Rating"
[AD1] = "2006 Rating Date"
[AE1] = "Pos_7"
[AF1] = "Beg Date"
[AG1] = "2005 Rating"
[AH1] = "2005 Rating Date"
[AI1] = "Pos_8"
[AJ1] = "Beg Date"
[AK1] = "2004 Rating"
[AL1] = "2004 Rating Date"
[AM1] = "Pos_9"
[AN1] = "Beg Date"
[AO1] = "2003 Rating"
[AP1] = "2003 Rating Date"
[AQ1] = "Pos_10"
[AR1] = "Beg Date"
[AS1] = "2002 Rating"
[AT1] = "2002 Rating Date"

Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("CURRENT_DETAIL").Select
Columns("G:G").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("G2").FormulaR1C1 = "=COUNTIF(JOB_HISTORY!C[-6],CURRENT_DETAIL!RC[-4])"
Range("G2").AutoFill Destination:=Range("G2:G" & lastrow)


Range("I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA").NumberFormat = "mm/dd/yy;@"

Dim i As Integer
For i = 2 To lastrow
Dim emp_id As String
emp_id = Sheets("Current_Detail").Range("C" & i)



If Sheets("Current_Detail").Range("G" & i) = 1 Then

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
****it:
End If

If Sheets("Current_Detail").Range("G" & i) = 2 Then

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it2
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
****it2:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it3
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it3:
End If

If Sheets("Current_Detail").Range("G" & i) = 3 Then

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it4
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it4:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it5
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it5:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it6
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it6:
End If

If Sheets("Current_Detail").Range("G" & i) = 4 Then

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it7
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
****it7:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it8
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it8:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it9
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it9:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it10
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it10:
End If

If Sheets("Current_Detail").Range("G" & i) = 5 Then

Sheets("JOB_HISTORY").Select
Range("a1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it11
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
****it11:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it12
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it12:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it13
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it13:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it14
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it14:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("X" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Y" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it15
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AA" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it15:
End If

If Sheets("Current_Detail").Range("G" & i) = 6 Then

Sheets("JOB_HISTORY").Select
Range("a1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it16
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it16:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it17
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it17:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it18
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it18:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it19
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it19:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("X" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Y" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it20
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AA" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it20:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AB" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AC" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it21
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AD" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AE" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it21:

End If

If Sheets("Current_Detail").Range("G" & i) = 7 Then

Sheets("JOB_HISTORY").Select
Range("a1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it22
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it22:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it23
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it23:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it24
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it24:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it25
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it25:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("X" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Y" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it26
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AA" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it26:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AB" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AC" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it27
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AD" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AE" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it27:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AF" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AG" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it28
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AH" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it28:

End If

If Sheets("Current_Detail").Range("G" & i) = 8 Then

Sheets("JOB_HISTORY").Select
Range("a1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it29
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it29:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it30
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it30:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it31
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it31:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it32
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it32:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("X" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Y" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it33
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AA" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it33:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AB" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AC" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it34
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AD" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AE" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it34:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AF" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AG" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it35
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AH" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it35:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AJ" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AK" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it36
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AL" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AM" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it36:

End If

If Sheets("Current_Detail").Range("G" & i) = 9 Then

Sheets("JOB_HISTORY").Select
Range("a1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it37
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it37:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it38
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it38:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it39
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it39:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it40
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it40:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("X" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Y" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it41
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AA" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it41:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AB" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AC" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it42
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AD" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AE" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it42:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AF" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AG" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it43
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AH" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it43:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AJ" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AK" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it44
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AL" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AM" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it44:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AN" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AO" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it45
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AP" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AQ" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it45:

End If

If Sheets("Current_Detail").Range("G" & i) = 10 Then

Sheets("JOB_HISTORY").Select
Range("a1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("I" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it46
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("J" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(0, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("K" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it46:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("L" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("M" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it47
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("N" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(1, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("O" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it47:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("P" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it48
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("R" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(2, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("S" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it48:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("T" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("U" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it49
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("V" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(3, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("W" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


****it49:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("X" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Y" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it50
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(4, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AA" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it50:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AB" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AC" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it51
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AD" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(5, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AE" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it51:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AF" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AG" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it52
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AH" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(6, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it52:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AJ" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AK" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it53
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AL" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(7, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AM" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it53:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AN" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AO" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it54
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AP" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(8, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AQ" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it54:
Sheets("JOB_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(9, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AR" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("JOB_HISTORY").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(9, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AS" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Set findit = Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If findit Is Nothing Then GoTo ****it55
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(9, 2).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AT" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("REVIEW_HISTORY").Select
Range("A1").Select
Cells.Find(What:=emp_id, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Offset(9, 1).Range("A1").Select
Selection.Copy
Sheets("CURRENT_DETAIL").Range("AU" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

****it55:
End If

Next i
Sheets("Current_Detail").Select
Cells.EntireColumn.AutoFit
[G1] = "# of Jobs"

Columns("V:W").Cut
Columns("Z:Z").Insert Shift:=xlToRight
Columns("R:S").Cut
Columns("X:X").Insert Shift:=xlToRight
Columns("N:O").Cut
Columns("V:V").Insert Shift:=xlToRight
Columns("J:K").Cut
Columns("T:T").Insert Shift:=xlToRight
End Sub
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.
Sort by date Sort by votes
Also, please know that I took the base of this code for a much smaller macro i had a friend write for me, and tried extrapolating it to a much larger database.
 
Upvote 0
You can split into multiple macros, but you will need to re-dim and redefine your variables for each macro.

For convenience sake, you can add a command to "Call" the next step at the end of each macro.
Code: 
Call Step2
 
Upvote 0
Thanks for the prompt response JM. I tried using a
Code: 
Call Macro1
Call Macro2
Call Macro3
technique after doing a little research, but it didnt work. I put the call command in the main macro though, would it work if i put it at the end of each macro, so at the end of macro1 would be
Code: 
Call Macro2
??
 
Upvote 0
In words what are you trying to do?

At a short glance it seems that rather than all that .Finding, putting a VLOOKUP (or INDEX(MATCH(..)) formula in CURRENT DETAIL would be easiest.
 
Upvote 0
Look through the code and see if there's any repetition.

For example are you doing basically the same thing on a whole load of worksheets?

I can already see some patterns that could mean big chunks of the code could be cut down to a few lines and a loop.

There's one thing in the code that really isn't a good idea and it's not really to do with the length.

It's all the Gotos, even the board doesn't seem to like them and replaced their labels with something that needs to be censored.

They just make the code harder to digest.

Mike is definitely onto something with the formulas idea as all you seem to be doing is one massive VLOOKUP.
 
Upvote 0
I have three worksheets in one workbook.

The first worksheet has a list of associate numbers, last name and first name (in columns).

The second worksheet has a list of associate number, position history and start date. Some associate numbers only appear once (have one row), because the associate has only had one job, others have 18 rows of their associate number, and each of their 18 jobs they've had. Each row has an associate number, the job and the start date of that job.

The third worksheet has a list of the associate numbers, rating and rating date. Each associate has a rating for every year they have worked for the company, so some have 2 ratings, some have 7.

so basically, I am trying to pull all of this info into one sheet so I can make sense of it. There are over 1,000 employees and 5,000 rows in the position history. The problem is that some people have had 2 jobs, some have had 8. I am trying to make it to where each person has one row dedicated to them, and has a column for each of their previous jobs, ratings and dates (up to ten for each employee).

So ultimately, there should be only 1000 or so rows (however many employees we have) and about 27 columns (ID #, Last Name, First Name, max of 10 previous jobs, 7 years of reviews, and 7 years of review dates)
 
Upvote 0
Yah, basically all i am doing is a vlookup, but i think the problem is that there are different number of repeated rows in the second worksheet. So I would want to have all of the info pulled for one associate, not just the first time they show up on a list. I am basically just repeating myself over and over in the code, and its based on me performing a =countif function to find out how many jobs each associate has had.

And I can't tell you guys how much I appreciate you taking time to try to figure this out with me. I used to do minimal programming a few years back, and thought this would be easier than it was. I realized I've lost whatever skills/knowledge I had very quickly. I just got my VBA for dummies in the mail....haha.
 
Upvote 0
Nice name for the labels.:)

Anyway, this is an example of sort of like the kind of thing I was talking about.

Well, OK it's a bad example but here it is:
Code: 
Dim I As Long
Dim rng As Range
Dim ws As Worksheet
 
    Set ws = Sheets("Current_Detail")
    
    With ws

        .Columns("G:Z").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

        Set rng = .Range("G1")
        
        For I = 0 To 36 Step 4

            Set rng = .Range("G1").Offset(, I)

            If I = 0 Then
                rng.Value = "Current Pos"
            Else
                rng.Value = "Pos_" & I / 4 + 1
            End If

                rng.Offset(, 1) = "Beg Date"
                rng.Offset(, 2) = (2011 - (I / 4)) & "Rating"
                rng.Offset(, 3) = (2011 - (I / 4)) & "Rating Date"

        Next I

     End With
That's for the first part of the code that, I think, is putting some sort of headers on the worksheet.

I think I've actually seen a pattern in the code based around the values in column G on the Current_Detail sheet.

The value seems to determine the no of times you have to repeat some part of the code.

Is that close?
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Locked
  • Question Question
Macros and protecting a cell
Replies
5
Views
113
Fluff
Fluff
L
  • Question Question
How to loop to find and replace with the specific cells
Replies
2
Views
333
Linda Lo
L
R
  • Question Question
cells.find error handling
2
Replies
13
Views
594
jolivanes
jolivanes
S
  • Question Question
Find 1st blank row to fill in when there is an active filter
2
Replies
11
Views
250
Alex Blakenburg
A
V
  • Question Question
US/European Date Format Updates Not Working on Macro Run
Replies
0
Views
122
vancher19
V

Forum statistics

Threads
1,224,603
Messages
6,179,850
Members
452,948
Latest member
UsmanAli786

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top