How can i define below start range as range given in a cell to do a Loop ?? Please help

I'm not sure I fully understand... but sounds like you want the first cell and last cell of a range to be in those cells and then run a macro that checks each of the cells in that range? Maybe something like this:

Sub akash()

Dim myRange As Range
Dim myCell As Range

Set myRange = Worksheets("Actual vs Plan").Range(Sheets("BurnMacro").Range("B5").Value, Sheets("BurnMacro").Range("C5").Value)

For Each myCell In myRange
    If myCell.Value = Sheets("BurnMacro").Range("C3").Value Then
        'do stuff here
    End If
Next myCell

End Sub

Akash, well done although your code copies the whole range over and over this way... not just the row of one cell, so if one cell = C3 then it will copy all the range. Try

Sub akash()

' Division 1
Dim myRange As Range
Dim myCell As Range

Set myRange = Worksheets("Actual vs Plan").Range(Sheets("BurnMacro").Range("B5").Value, Sheets("BurnMacro").Range("C5").Value)

For Each mycell In myRange
        If myCell.Value = Sheets("BurnMacro").Range("C3").Value And myCell.EntireRow.Hidden = False Then
        Sheets("Actual vs Plan").Range(Range(Sheets("BurnMacro").Range("B5").Value).Column, myCell.Row, Range(Sheets("BurnMacro").Range("C5").Value).Column, myCell.Row).Offset(0, 1).Copy Destination:=Sheets("BurnMacro").Range("B8")
    End If
Next myCell

End Sub

This is probably 1. Easier to follow, and 2.more effective, also fixed the issue of pasting the values in the same destination each time (my bad)

Sub akash()

' Division 1
Dim myRange As Range
Dim myCell As Range
Dim fcell As Range
Dim lcell As Range
Dim paste_start As Long

Set fcell = Range(Sheets("BurnMacro").Range("B5").Value)
Set lcell = Range(Sheets("BurnMacro").Range("C5").Value)

Set myRange = Worksheets("Actual vs Plan").Range(fcell.Address, lcell.Address)
paste_start = 8 'row that we start pasting the copied values
For Each myCell In myRange
    Sheets("Actual vs Plan").Activate
    If myCell.Value = Sheets("BurnMacro").Range("C3").Value And myCell.EntireRow.Hidden = False Then
        Sheets("Actual vs Plan").Range(Cells(myCell.Row, fcell.Column), Cells(myCell.Row, lcell.Column)).Offset(0, 1).Copy Destination:=Sheets("BurnMacro").Range("B" & paste_start)
        paste_start = paste_start + 1
    End If
Next myCell

End Sub

Happy to help akash, please mark the thread as solved if you are satisfied with the solution.