Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Activate
Application.ScreenUpdating = False
If Not Application.Intersect(Range("B13"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "BAY - UNDEGROUND PLACEMENT": Sheet13.Rows("1:4").EntireRow.Hidden = False
Sheet13.Rows("5:34").EntireRow.Hidden = True
Sheet13.Rows("35:37").EntireRow.Hidden = False
Sheet13.Rows("38:88").EntireRow.Hidden = True
Case Is = "BAY - AERIAL PLACEMENT": Sheet13.Rows("2:4").EntireRow.Hidden = True
Sheet13.Rows("5:7").EntireRow.Hidden = False
Sheet13.Rows("8:37").EntireRow.Hidden = True
Sheet13.Rows("38:40").EntireRow.Hidden = False
Sheet13.Rows("41:88").EntireRow.Hidden = True
Case Is = "BAY - UG + AERIAL PLACEMENT": Sheet13.Rows("2:7").EntireRow.Hidden = True
Sheet13.Rows("8:10").EntireRow.Hidden = False
Sheet13.Rows("11:40").EntireRow.Hidden = True
Sheet13.Rows("41:45").EntireRow.Hidden = False
Sheet13.Rows("46:88").EntireRow.Hidden = True
Case Is = "BAY - ENERGIZE": Sheet13.Rows("2:10").EntireRow.Hidden = True
Sheet13.Rows("11:13").EntireRow.Hidden = False
Sheet13.Rows("14:25").EntireRow.Hidden = True
Sheet13.Rows("26:28").EntireRow.Hidden = False
Sheet13.Rows("29:88").EntireRow.Hidden = True
Case Is = "BAY - ENERGIZE (2ND NNI PORT)": Sheet13.Rows("2:13").EntireRow.Hidden = True
Sheet13.Rows("14:16").EntireRow.Hidden = False
Sheet13.Rows("17:28").EntireRow.Hidden = True
Sheet13.Rows("29:31").EntireRow.Hidden = False
Sheet13.Rows("32:88").EntireRow.Hidden = True
Case Is = "BAY - TESTING": Sheet13.Rows("2:16").EntireRow.Hidden = True
Sheet13.Rows("17:19").EntireRow.Hidden = False
Sheet13.Rows("20:31").EntireRow.Hidden = True
Sheet13.Rows("32:34").EntireRow.Hidden = False
Sheet13.Rows("35:88").EntireRow.Hidden = True
Case Is = "SF - PLACEMENT": Sheet13.Rows("2:19").EntireRow.Hidden = True
Sheet13.Rows("20:22").EntireRow.Hidden = False
Sheet13.Rows("23:42").EntireRow.Hidden = True
Sheet13.Rows("43:45").EntireRow.Hidden = False
Sheet13.Rows("46:88").EntireRow.Hidden = True
Case Is = "SF - ENERGIZE": Sheet13.Rows("2:22").EntireRow.Hidden = True
Sheet13.Rows("23:25").EntireRow.Hidden = False
Sheet13.Rows("26:42").EntireRow.Hidden = True
Sheet13.Rows("43:45").EntireRow.Hidden = False
Sheet13.Rows("46:88").EntireRow.Hidden = True
Case Is = "BAY - UNDEGROUND PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:46").EntireRow.Hidden = True
Sheet13.Rows("47:49").EntireRow.Hidden = False
Sheet13.Rows("50:70").EntireRow.Hidden = True
Sheet13.Rows("71:73").EntireRow.Hidden = False
Sheet13.Rows("78:88").EntireRow.Hidden = True
Case Is = "BAY - AERIAL PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:52").EntireRow.Hidden = True
Sheet13.Rows("53:55").EntireRow.Hidden = False
Sheet13.Rows("56:76").EntireRow.Hidden = True
Sheet13.Rows("77:79").EntireRow.Hidden = False
Sheet13.Rows("80:88").EntireRow.Hidden = True
Case Is = "BAY - UG + AERIAL PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:58").EntireRow.Hidden = True
Sheet13.Rows("59:61").EntireRow.Hidden = False
Sheet13.Rows("62:82").EntireRow.Hidden = True
Sheet13.Rows("83:85").EntireRow.Hidden = False
Sheet13.Rows("86:88").EntireRow.Hidden = True
Case Is = "SF - PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:43").EntireRow.Hidden = True
Sheet13.Rows("44:46").EntireRow.Hidden = False
Sheet13.Rows("47:64").EntireRow.Hidden = True
Sheet13.Rows("65:67").EntireRow.Hidden = False
Sheet13.Rows("68:88").EntireRow.Hidden = True
Case Is = "SF - PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:43").EntireRow.Hidden = True
Sheet13.Rows("44:46").EntireRow.Hidden = False
Sheet13.Rows("47:67").EntireRow.Hidden = True
Sheet13.Rows("68:70").EntireRow.Hidden = False
Sheet13.Rows("71:88").EntireRow.Hidden = True
Case Is = "BAY - UNDEGROUND PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:49").EntireRow.Hidden = True
Sheet13.Rows("50:52").EntireRow.Hidden = False
Sheet13.Rows("53:73").EntireRow.Hidden = True
Sheet13.Rows("74:76").EntireRow.Hidden = False
Sheet13.Rows("77:88").EntireRow.Hidden = True
Case Is = "BAY - AERIAL PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:55").EntireRow.Hidden = True
Sheet13.Rows("56:58").EntireRow.Hidden = False
Sheet13.Rows("59:79").EntireRow.Hidden = True
Sheet13.Rows("80:82").EntireRow.Hidden = False
Sheet13.Rows("83:88").EntireRow.Hidden = True
Case Is = "BAY - UG + AERIAL PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:61").EntireRow.Hidden = True
Sheet13.Rows("62:64").EntireRow.Hidden = False
Sheet13.Rows("65:85").EntireRow.Hidden = True
Sheet13.Rows("86:88").EntireRow.Hidden = False
End Select
End If

Application.ScreenUpdating = True
End Sub


Sir this is the code of hide and unhide now i want like if i select case 1 the data display in cell B3 i want to copy that record and if select any other case then
i want to select data from that cell. I want to copy the data from cell on the bases of DDL selection.
How to do that.