ElseIf drAtd IsNot Nothing AndAlso drAtd.Length > 0 Then
Dim dr As DataRow
dr = dtfinal.NewRow()
dr(0) = dtAtd.Rows(0)(0)
dr(1) = dtAtd.Rows(0)(1)
dr(2) = dt
dr(3) = "P"
dr(4) = "-"
dr(5) = dtAtd.Rows(0)(3)
dr(6) = dtAtd.Rows(1)(3)
dr(7) = dtAtd.Rows(2)(3)
dr(8) = dtAtd.Rows(3)(3)
dr(9) = dtAtd.Rows(4)(3)
dr(10) = dtAtd.Rows(5)(3)
dtfinal.Rows.Add(dr)
but in every loop he prints same value which for selected area how can remove this problem