Thread: Importing worksheets if certain condition is fulfilled

it is because when you insert the first sheet, the active sheet is changed and "Example" (where the Button 1 is) is no longer the active one. You have to reselect the original sheet for your code to work.
Like this: (make sure the names are the ones you have in your workbooks)

Sub Button1_Click()

If Range("H29").Value = 1 Then Workbooks("PleaseWork2.xlsx").Sheets("ExampleH").Copy After:=Workbooks("PleaseWork(1).xlsm").Sheets("Example")

Workbooks("PleaseWork(1).xlsm").Activate
Sheets("Example").Select
If Range("H30").Value = 1 Then Workbooks("PleaseWork2.xlsx").Sheets("Something").Copy After:=Workbooks("PleaseWork(1).xlsm").Sheets("Example")

End Sub

Make sure that the range being checked refers to the correct sheet, you don't need to select the sheet

Sub Button1_Click()
With Sheets("Example")
If .Range("H29").Value = 1 Then _
    Workbooks("PleaseWork2.xlsx").Sheets("ExampleH").Copy _
    After:=Workbooks("PleaseWork.xlsm").Sheets("Example ")
If .Range("H30").Value = 1 Then _
    Workbooks("PleaseWork2.xlsx").Sheets("Something").Copy _
    After:=Workbooks("PleaseWork.xlsm").Sheets("Example ")
End With
End Sub