Help with a macro

STselekis 

Here you go. The comments indicate the bits that you have to edit for your workbook:

Sub CopyRows()
    Const c = "H"    ' the column to look at
    Dim wss As Worksheet
    Dim wst As Worksheet
    Dim s As Long
    Dim m As Long
    Dim t As Long
    Application.ScreenUpdating = False
    Set wss = Worksheets("Sheet1")    ' the source sheet
    Set wst = Worksheets("Sheet2")    ' the target sheet
    t = wst.Cells(wst.Rows.Count, c).End(xlUp).Row + 1
    m = wss.Cells(wss.Rows.Count, c).End(xlUp).Row
    For s = 1 To m
        Select Case wss.Cells(s, c).Value
            Case 100
                wss.Cells(s, c).EntireRow.Copy Destination:=wst.Cells(t, 1).Resize(50)
                t = t + 50
            Case 10
                wss.Cells(s, c).EntireRow.Copy Destination:=wst.Cells(t, 1).Resize(3)
                t = t + 3
        End Select
    Next s
    Application.ScreenUpdating = True
End Sub