Sub SampleEngine(sPlateNum As String, sRespRange As String, sLoop As Integer)
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim rFound As Range
Set WS1 = Sheets("DATA")
Set WS2 = Sheets(sPlateNum)
SET WS3= Sheets("BPP")
WS2.Range(sRespRange).ClearContents...