Sub Copy_Projectinfo()
'
' Copy_Projectinfo Macro
'    Sheets("Project Information").Select
    Sheets("Copy_Projectinfo").Visible = True
    Sheets("Project Information").Select
    Range("B11:N85").Select
    Selection.Copy
    Sheets("Copy_Projectinfo").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("O1").Select
    Sheets("Project Information").Select
    ActiveWindow.SmallScroll Down:=-51
    Range("B1").Select
    Application.CutCopyMode = False
End Sub