VBA-Copy filtered data to sheet2. “If” condition should stop at msgbox if no filtered data, but it is not stopping there

Question

sub testing() Dim s1 as worksheet, s2 as worksheet dim r2 as range, r1A_D as range, r1A as range, r1 as range, n as Long Set s1 = Sheets("Sheet1") Set s2 = Sheets(