Mohannd

Sub Update1_Click()
Dim dLst As Long ' last cell in destination
Dim sLst As Long ' last cell in source
Dim sSh As Worksheet ' source sheet
Dim dSh As Worksheet ' destination sheet

Set sSh = Sheets("Sheet6") ' set the source sheet
Set dSh = Sheets("Sheet2") ' set the detination sheet

dLst = dSh.Range("B" & Rows.Count).End(xlUp).Row + 1 ' find the next available row in destination
sLst = dSh.Range("C" & Rows.Count).End(xlUp).Row ' find end of source data

' set the value of the next available range in destination to data in source
dSh.Cells(dLst, 2).Resize(sLst, 9).Value = sSh.Cells(30, 3).Resize(sLst, 9).Value

End Sub