Hi Geronimo.
<TABLE BORDER=1>
<TR><TD BGCOLOR="C0C0C0"> </TD><TD BGCOLOR="C0C0C0"> A </TD><TD BGCOLOR="C0C0C0"> B</TD><TD BGCOLOR="C0C0C0"> C</TD></TR>
<TR><TD BGCOLOR="C0C0C0">1</TD><TD>data_A1</TD><TD>data_B1</TD><TD>data_C1</TD></TR>
<TR><TD BGCOLOR="C0C0C0">2</TD><TD>data_A2</TD><TD>data_B2</TD><TD>data_C2</TD></TR>
<TR><TD BGCOLOR="C0C0C0">3</TD><TD>data_A3</TD><TD>data_B3</TD><TD>data_C3</TD></TR>
<TR><TD BGCOLOR="C0C0C0">4</TD><TD>data_A4</TD><TD>data_B4</TD><TD>data_C4</TD></TR>
<TR><TD BGCOLOR="C0C0C0">5</TD><TD>data_A5</TD><TD>data_B5</TD><TD BGCOLOR="CCFFCC">data_C5</TD></TR>
</TABLE>
If last cell is C5 like above.
<pre>
<FONT COLOR="BLUE">'//Please copy this into sheet module of "first worksheet"</FONT>
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("C5")
If Application.Intersect(.Item(1), Target) Is Nothing Then Exit Sub
.CurrentRegion.Copy Sheets("Sheet2").Range("A1") <FONT COLOR="BLUE">'Change Sheet2 to name of another sheet</FONT>
End With
End Sub
</pre>