print same value

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