Thejan,
Is this what you want?

Sub MokatadaMay()
StCol = ActiveCell.Column
StRow = ActiveCell.row
NumOCols = Selection.Columns.Count
NumORows = Selection.Rows.Count
Set cursh = ActiveSheet
Sheets.Add after:=Sheets(Sheets.Count)
cursh.Activate
For i = StRow To StRow + NumORows - 1
For j = StCol To StCol + NumOCols - 1
Sheets(Sheets.Count).Cells(k + 1, 1).Value = _
Sheets(Sheets.Count).Cells(k + 1, 1).Value & "<td" & _
Cells(i, j).Value & "</td"
Next j
Sheets(Sheets.Count).Cells(k + 1, 1).Value = _
"<tr" & Sheets(Sheets.Count).Cells(k + 1, 1).Value & "</tr"
k = k + 1
Next i
End Sub

Cecil

"Thejan Mendis" wrote in message
...
hi Cecilkumara Fernando

Thanks lot, it's working perfectly and if you can please tell me how do
I put these new data (the taged cell) to a new sheet as they taged
automatically.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!